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I. 



INTRODUCTION 



A. BACKGROUND 

The microcomputer was introduced in the marketplace a 
little over a decade ago, and has proceeded to develop at 
an astounding rate. The very large-scale integrated (VLSI) 
microcomputer of today performs at speeds four to six orders 
of magnitude greater than first generation computers. The 
power, utility and versatility of these microcomputers is 
such that their capability exceeds that of second generation 
computers, and they are as powerful as many minicomputer 
systems in a variety of applications. Indeed, the increas- 
ing capabilities of microcomputers have driven the latest, 
high-speed minicomputers to attain the versatility and 
performance standards of the former medium-scale mainframe 
computers [Ref. 1: pp. iii-8] . 

Today, an unprecedented amount of computing power is 
available at a price which can be afforded by even the 
smallest of engineering firms and research groups. Two 
years ago, research into the implementation of finite 
element software on eight bit microcomputers was conducted 
by Mulholland [Ref. 2]. At that time, the cost of the 
computer system used for his research was approximately 
$6,000 [Ref. 2: p. 15]. The cost of each of the systems 
used in this research is about the same, but there is 
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hardly a comparison in capability between the Apple II Plus 
used by Mulholland, and the IBM PC-XT of today. The problem 
today is that there is not a large library of engineering 
software available for engineering firms and research groups 
to take advantage of. Wilson [Ref. 6] states that less 
than one percent of current day finite element analysis is 
conducted on microcomputers. This lack of software leaves 
small firms and research groups (who do not have the staff, 
resources and time to develop extensive programs themselves) 
unable to take advantage of the computing power available 
to them. For this reason, there is a need to develop 
engineering software which will take advantage of the 
microcomputer's capabilities. Unfortunately, at this time, 
the limitations and capabilities of the software/micro- 
computer combination are largely unexplored. This thesis 
will attempt to shed light on the capabilities of the 
sixteen bit microcomputer to perform general finite element 
analysis . 

1 . Eight Bit Micros and Finite Elements 

When first introduced, microcomputers used an eight 
bit architecture which provided several stumbling blocks to 
the implementation of engineering software in general. The 
most significant of these stumbling blocks was the memory 
size limitation, and the second was a limited instruction 
set. The maximum addressable memory of the most advanced 
of these systems was 65,536 bytes. This address space was 
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often limited, even further, by the presence of read only 
memory (ROM) chips which contained significant portions 
of the operating system for the computer. The result was 
a severe limitation to the size of application software, 
as well as the size of data objects. The instruction set 
limitation was significant because it complicated the 
implementation of high level language compilers, and almost 
all engineering applications are dependent on the avail- 
ability of high level languages. These two problems com- 
bined to cause another problem which was the immaturity 
of support software. The limited instruction sets required 
more code to implement desired features, yet the small 
memory size restricted the amount of code severely. The 
result was that operating systems, compilers, and inter- 
preters were notorious for the things they could not do. 
Nevertheless, there have been a number of commercial as 
well as academic implementations of finite element codes 
on eight bit microcomputers. All of these implementations 
are limited to relatively small problems, and almost all 
are special application programs which solved only one 
type of problem (typically beams, trusses, or frames). 

As time progressed, the hardware and operating systems 
of microcomputers matured. With the advent of high speed 
floppy diskette drives and disk operating systems, the 
idea of using out-of-core linear equation solvers to solve 
larger systems of equations on microcomputers became 
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achievable. Mulholland [Ref. 2: pp. 36-46] demonstrated 
the ability of eight bit machines to produce an acceptable 
result using an out-of-core technique. As might be 
expected, solution times were somewhat slow, but the 
method increased the size of problem v/hich could be solved 
with a limited amount of memory. After verifying the 
utility of the eight bit machine and out-of-core solver 
com.bination , Mulholland [Ref. 2: pp. 52-7 0] continued his 
investigation by implementing a modification of Mallory's 
[Ref. 3] STAP-NPS on the Apple-II Plus microcomputer. 

The result v/as a finite element system which was cum- 
bersome to use, and supported only one element type. The 
system required the attention of the user to shift five 
floppy diskettes between four disk drives in response to 
requests from the run time system. In his tests, over two 
hours were- required to solve a system of 160 equations 
having a half -bandwidth of 64. Mulholland 's conclusion 
[Ref. 2: pp. 72-74] was that the system he used was not a 
suitable tool for serious finite element work. He cited 
six primary reasons why the system was inadequate for the 
application, but it is significant to note that five of 
the six reasons were actually operating system/compiler 
limitations. In other words, five of the six were due 
to immaturity of support software for the Apple-II Plus 
system at the time. 
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2 . Sixteen Bit Microcomputer Introduced 



In 1981 and 1982 the sixteen bit LSI microcomputer 
was introduced to the market. While the speed of these 
machines was as much as four or five times greater than 
the eight bit predecessors, the largest advantages were 
realized by the improved architecture and instruction sets.. 
Rao [Ref. 1: p. 205] cites a ten fold improvement in execu- 
tion time for the Intel 8086 over the Intel 8080A v/hile 
the increase in clock speed was, at most, 4 times that of 
the 8080A. Obviously, the influence of the architecture 
and instruction set is strongly significant. One of the 
most important improvements delivered by the sixteen bit 
processors was the amount of addressable memory; the 
smallest address space among the various architectures 
was 1024 kilobytes. This is not meant to imply that appli- 
cation software was able to take advantage of that address 
space. There were no compilers, at the time, that would 
allow addressing outside a 64 kilobyte page. Even today, 
compilers that allow addressing beyond the 64 kilobyte 
page are just beginning to enter the market. However, a 
tremendous amount of support software such as compilers, 
interpreters, spread sheets, etc. were no longer limited 
to 64 kilobytes of memory. As a result, support software 
began to grow in size and capability. In addition to the 
increase in address space a number of the systems were able 
to make use of a separate coprocessor, the Intel 8087, for 
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numeric data processing. Although, no specific standard 
has been developed for comparing processing times with 
and without the coprocessor, most authors agree that addi- 
tion of the coprocessor has been shown to increase the 
speed of numeric computation significantly [Ref. 4, 5]. 

The introduction of the sixteen bit machines, 
however, did not cause an immediate surge in finite element 
applications on microcomputers. Wilson [Ref. 6] points out 
that the development of engineering software is dependent 
upon the availability of a stable operating system, and a 
compatible FORTRAN compiler. While today's microcomputers 
are seldom marketed without an operating system, the 
initial versions of operating systems have been notoriously 
unreliable and unsophisticated. Therefore, a lag exists 
between the introduction of the hardware, and the develop- 
ment of a stable operating system and a compatible FORTPAlN 
compiler. The lag in the case of the eight bit machines 
was nearly ten years, but because of the experience gained 
in the development of these system.s the lag was shortened 
considerably for sixteen bit microcomputers. 

At the outset of this investigation, the market 
boasted a variety of disk operating systems which supported 
floppy disks as well as the newer high-speed hard disks. 
There were two FORTRAN compilers available which had under- 
gone a number of modifications and promised the maturity 
necessary to support finite element applications. There 



13 



was also a wide variety of peripheral plotting devices 
and other equipment and software to support engineering 
applications . 

B. PURPOSE AND SCOPE OF THE INVESTIGATION 

This investigation was conducted as an attempt to 
implement a general purpose finite element program on a 
sixteen bit microcom.puter , with the intent of determining 
whether or not the resulting system was practically useful. 
Wilson [Ref. 6] makes the assertion that new finite element 
v;ork will be done in FORTRAN, primarily, because all general 
purpose finite element programs, to date, have been written 
in FORTRAN. This author supports the assertion with the 
observation that FORTRAN is also the most widely used and 
supported language in the engineering community. In addition, 
FORTRAN 77 eliminates most of the practical objections to 
FORTRAN as a programming language. Much previous work has 
gone into the implementation of the m.ore notable general, 
finite element programs in use today, and the construction 
of these programs is a project which requires considerable 
investment in terms of manpower and dollars [Ref. 6] . 

Since the purpose of the investigation was to evaluate the 
usefulness of the resultant program/machine combination, 
it was desirable to implement a system of moderate com- 
plexity in order to provide a rigorous test. Therefore, 
the decision was made to convert an appropriate, existing 
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program rather than to reinvent the wheel . The program which 
was chosen, called MEF ( "Methode des Elements Finis”), was 
written at the Universite de Technologic, Compiegne, France. 
Justification for the choice of MEF is provided in section 
1.5 belov/. Initially, it was hoped that graphics, and user 
friendly input routines could be .added to the implementation, 
however, time constraints limited the investigation to con- 
version of the existing softv/are. 

C. CHOICE OF THE MACHINE 

The major considerations influencing the choice of the 
microcomputer for this study were: 

(1) Availability and support of system hardware (includ- 
ing peripherals) . 

(2) The existence of a FORTRAN compiler compatible v/ith 
the system. 

(3) llie existence of a compatible, FORTRAN callable, 
graphics package for future implementation of graphics . 

(4) System cost. 

(5) The existence of a wide range of technical support 
for hardware maintenance. 

(6) The availability of a wide range of commercial 
software for the system. 

The last two considerations are to insure that the 
chosen system was maintainable, and versatile. Presumably, 
any firm or research group considering the purchase of a 
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microcomputer would desire to use it for more than finite 
element analysis. The existence of technical support and 
commercially available softv/are would be significant con- 
siderations in the choice of a system. System hardware 
considerations included floppy disks, hard disks, modems, 
printers, plotters, graphical input devices (digitizers, 
joy sticks, mouse, etc.), and the ability to support a 
large amount of memory. 

At the time equipment for the project had to be chosen 
IBM's complete domination of the microcomputer market made 
the choice of the IBM PC or a PC compatible microcomputer 
the logical choice of hardware for the system. In addition, 
the IBM PC was widely available at the Naval Postgraduate 
School. IBM's domination of the market also spawned a 
tremendous industry aimed at producing peripherals and 
software for the IBM PC. Therefore, it was clear that 
capable language compilers, graphics devices, graphics 
software, and other software would develop more quickly 
and predictably for the IBM PC than for other systems. 

In the end, two systems were used to conduct the 
investigation: an IBM PC-XT available at the Naval 

Postgraduate School, and a Columbia MPC . The Columbia 
MPC was chosen for use at home because of its lower cost 
and high degree of compatibility with the IBM PC. 
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1 . 



Configuration of the System 



Differences between the two machines chosen for this 
study are minimal. The description which follows is appli- 
cable to both systems with exceptions as noted. 



Table I. Configuration of the System 



COMPONENT 



DESCRIPTION 



CPU 

MEMORY 

DISPLAY 



INTEL 8088 with the 
INTEL 8087 coprocessor 

512 kilobytes 

color monitor 
with graphics adapter 
and a monochrome 
display 



MASS 

STORAGE 



one 5.25 inch, double 
density, dual sided 
floppy diskette drive 
and one ten megabyte 
hard disk drive 



COMJ^IENTS 



the Columbia sup- 
ported a graphics 
capable monochrome 
monitor with a 
graphics adapter 

the Columbia system 
initially supported 
two 5.25 inch, double 
density, dual sided 
floppy diskette 
drives and no hard 
disk drive 



PRINTER 



SERIAL 

PORTS 



graphics capable , dot 
matrix, parallel 
printer 

two (one used for m^ain- 
f rame communications , 
and one for a graphics 
input device in support 
of future graphics 
development ) 



The hard disk was not required for the development 
of the MEF system, however, the availability of the hard disk 
cut compile and linking time almost in half over the Columbia 
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floppy disk system. When compile and link times approached 
two hours on floppy disks for the complete MEF system, the 
increased speed of the hard disk was significant. Later 
in the investigation, a fifteen megabyte hard disk was 
added to the Columbia MPC. 

At the beginning of the investigation it was impos- 
sible to determine the amount of memory which would be re- 
quired to implement MEF. However, the original implementation 
of MEF on a VAX 780 minicomputer contained a working array 
consisting of 160 kilobytes. The memiory size of 512 kilo- 
bytes was chosen because it was the amount which would fully 
populate the memory expansion board chosen, and it was felt 
that it would be large enough to minimize the difficulty in 
implementing program overlays if overlays became necessary. 

Both systems run using functionally identical oper- 
ating systems (MS DOS for the Columbia and PC DOS for the 
IBM). Indeed, no modifications of any kind were required 
to carry the software between the two systems. Even the 
compiled and linked programs could be carried between the 
systems . 

2 . CPU Speed Tests 

CPU speed for the two systems is advertised to be 
4.77 MHz. However, the hardware and operating systems of 
both machines are extensively interrupt driven. No criticism, 
is intended of this extremely powerful method of implemen- 
tion, however, it was known that the effective speed of the 
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system would be somewhat lower than the clock speed because 
of the system overhead created by extensive use of inter- 
rupts and interrupt handlers. For this reason, a simple 
test was devised to determine the processor speed available 
to a user program (apparent speed) to compare with eight 
bit processor speeds. 

The test involved writing a sim.ple assembly language 
routine which would place the processor in a loop of speci- 
fied length. The system clock was accessed just before 
and just after the loop to compute the time spent in the 
loop. [Ref. 7] was used to determine the number of clock 
cycles in the loop, and the number of times through the 
loop was chosen to be large enough so that the computation 
tim.e involved in accessing the clock would not significantly 
influence the resultant com.putation . The program and cal- 
culations used are detailed in Appendix A. The result of 
the test indicated that the apparent speed of the systems 
is approximately 3.56 MHz (v;orst case). This test was 
somewhat subjective, however, the result gave some insight 
into the minim.um performance which could be expected from 
the system. While the 3.5 MHz speed is significantly lov^er 
than 4.77 f/IHz , it is still about one and a half times 
greater than typical eight bit processor speeds; coupled 
with a better architecture and instruction set it was clear 
that significant things could be expected. 
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3. Matrix Solution Demonstration 



In comparison with the matrix solution tests con- 
ducted by Mulholland [Ref. 2: pp. 45-48] tests of the IBM 
PC-XT, and the Columbia MPC configured with 512 kilobytes 
of RAM yielded significantly faster solution times for 
even larger matrices than those tested by Mulholland. The 
tests were conducted using the FORTRAN program in Appendix 
B to solve double precision, fully populated, matrices. 

The solver uses an LU decomposition followed by back sub- 
stitution, and takes no advantage of symmetry or bandwidth. 
The results are as follows: 



Table II. Matrix Solution Benchmark Tests 



DEGREES 

FREEDOM 


PREDICTED 
SOLUTION TIME 


ACTUAL 

SOLUTION TIME 


25 


unknown 


0.0577 min. 


32 


.12 min. 


.119 m.in. 


100 


3.69 min. 


3.48 min. 


200 


29.54 min. 


27.56 min. 



The first test was conducted on a matrix whose 
storage requirements would not exceed 64 kilobytes, but 
would be large enough to provide a usable benchmark. The 
32 degree of freedom (DOF) matrix was run for direct com- 
parison with the results obtained by Mulholland [Ref. 2: 
pp. 45-46]. As can be seen from the table, the time 
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required for solution was small as compared with the Apple 
II Plus best time of 2.68 minutes, and the HP 9845 best 
time of 0.87 minutes. In comparison with Mulholland's 
reported solution time of approximately 2.5 hours for a 
160 DOF problem having a bandwidth of 64, test four took 
only 27.56 minutes. 

The solution time for the type of solver used varies 
with the cube of the number of degrees of freedom (i.e., a 
two fold increase in DOF would predict an increase in solu- 
tion time of eight) . The predicted times for the last 
three tests were based on the actual execution time for 
the first test. Since the actual times are even faster 
than the predicted times the conclusion can be drawn that 
the overhead of addressing outside a 64 kilobyte memory 
page is not excessive for this compiler, and does not seem 
to vary with how far outside the memory page the addressing 
goes. If the results of test three are used to predict 
test four the resultant prediction would be 27.84 minutes. 

As the table shows, this is very close to the actual execu- 
tion time. It is important to note that for the size 
matrices tested, and the amount of memory available the 
solutions were achieved in-core. Therefore, in many 
respects, the comparison with Mulholland's data is infor- 
mative, but not exactly fair. 

The significance of the comparison is that it shows 
the size of problem which can be solved in a relatively 
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short period. The in-core solution of a 200 DOF, double 
precision system is important both because it has only 
recently become possible, and because it represents the 
solution of a moderate sized finite element system with a 
maximum bandwidth. Larger systems could be solved in-core 
if bandwidth were minimized, and the solution technique 
took advantage of symmetry and bandwidth characteristics, 
as is done with most modern finite element programs. For 
systems which take advantage of these characteristics, the 
solution varies as the product of DOF and the square of the 
bandwidth. This means that a finite element system having 
a bandwidth of eighty and five hundred degrees of freedom 
would be solved in about one third the time as test four 
above (after assembly) , or if a factor of three is assumed 
for all the processing, it would take approximately the 
same time as test four. Even larger systems could be solved 
using out-of-core techniques, but a fairly large number of 
problems can now be solved in-core. 

D. CHOICE OF COMPILER 

At the start of this investigation, the Microsoft 
FORTRAN compiler (version 3.1) was the only one which 
offered features that might be used to implement arrays 
requiring more than 65,536 bytes of storage. In order to 
avoid typical limits on data sotrage, Microsoft reserved a 
full 64k segment for each named common block. In support 
of portability, the compiler offered a complete ANSI FORTRAN 
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77 Subset with a few extensions to the full language. 
Version 3.1 was used for most of the preliminary v;ork 
with MEF, however, difficulties involved in restructuring 
the program to take advantage of the Microsoft named com- 
mon block features prevented the implementation of MEF 
with full sized arrays. Later in the investigation, 
Microsoft FO"RTRAN was updated to version 3.2. The new 
version supported unrestricted array sizes, overlay sup- 
port, and an improved support for the Intel 8087 math 
coprocessor. 

E. CHOICE OF PROGRAM FOR CONVERSION 

To provide a sufficiently rigorous test of the computer 
and software combination it was desirable to implement a 
general finite element program of moderate to robust com- 
plexity. The characteristics of such a program include: 

1. The ability to solve a variety of problems in- 
cluding problems of elasticity, heat transfer, and fluid 
mechanics . 

2. A choice of element types, and the ability to add 
elements as needed. 

3. The ability to solve both static and dynamic 
problems of large size involving more than one element 
type. Including problems having different degrees of 
freedom at each node, symmetric or nonsymmetric element 
matrices . 
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4. The solution of eigen value problems. 

5. The ability to solve nonlinear problems. 

For the purpose of implementation of a finite element 
code on a microcomputer it would also be useful if the 
program included an out-of-core equation solver to elimi- 
nate severe restrictions on problem size, and block struc- 
tured code to minimize the difficulty of developing overlays 
if necessary. 

Practical considerations included the availability of 
source code and thorough documentation for the program. 

It was also necessary, because of time constraints, to 
have the source on some type of machine readable media. 

One program which satisfied most of the above char- 
acteristics was called MEF. In addition, there was a 
version of MEF available at the ITaval Postgraduate School 
which ran on the VAX 780 under the VMS operating system. 

The documentation for MEF was contained in a book [Ref. 8] 
which was translated from French by Professor Gilles Cantin 
of the Naval Postgraduate School. Therefore, this investi- 
gation chose MEF, the "Methode des Elements Finis," to 
convert for implementation on the IBM PC-XT and Columbia 
MPC microcomputers. 
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II. CONVERSION OF MEF 



A . GENERAL 

The version of MEF which was available at the Naval 
Postgraduate School was written in FORTRAN IV. The FORTRAN 
77 compiler on the VAX 780 at the Naval Postgraduate School 
was able to compile the FORTRAN IV code with no alterations, 
and the result was tested using problems for which the 
solutions have been published [Ref. 8: pp. 447-503] . 

However, the FORTRAN 77 implementation on the VAX is a 
robust version of ANSI standard FORTRAN 77, with many 
extensions which provide compatibility with earlier ver- 
sions of FORTRAN. The Microsoft FORTRAN version 3.1 which 
was used at the beginning of this study met the require- 
ments of the ANSI subset of FORTRAN 77 with a few exten- 
sions to the full language. 

In general, most of the problems that occur in convert- 
ing engineering applications programs from FORTRAN IV to 
FORTRAN 77 are tied to the character and string handling 
differences between the two versions. Occasionally, 
problems arise in the conversion of do loops because 
FORTRAN IV did not prevent the poor programming practice 
of jumping into the range of a do loop. Additional prob- 
lems arise when using the subset language because it does 
not support BLOCK DATA modules and requires all occurrences 
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of a named common block to be exactly the same length. 

These two problems are mentioned because of their common 
use in engineering applications, and because of their ex- 
tensive use in MEF . Aside from these general areas, con- 
siderations specific to implementation on a microcomputer 
include restrictions on array size imposed by the com.piler, 
and memory size limitations imposed by the hardware/ 
operating system (the operating system for the IBM PC does 
not support virtual memory). Version 3.1 of the Microsoft 
Compiler supported a maximum array size of 65,366 bytes 
(approximately 8,170 double precision words), and a maximum 
subscript value of 32,767 [Ref. 9: p. 63]. As mentioned 
previously, version 3.1 provided some relief with regard 
to memory restrictions by reserving 64 kilobytes of storage 
for each named common block [Ref. 10: p. 54] . 

The conversion of MEF took place in two major phases. 
The first phase used Microsoft FORTRAN version 3.1, and 
was unsuccessful. The second phase used Microsoft FORTRAN 
version 3.2 which was actually two full releases improved 
over version 3.1. The second phase was successful (with 
some restrictions) after a numJaer of problems with the 
compiler (bugs) were identified and circumvented. 

B . PHASE ONE 

The original version of MEF was approximately 4800 
lines long which included the comments (written in French) . 
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There are very few microcomputer based text editors which 
will handle files of that length, and the ones that do 
become totally bogged down with the overhead of managing 
the file. It was determined that the most effective way to 
proceed would be compile approximately 500 lines of code on 
the microcomputer to identify the specific items which 
could be changed globally in the original code. After the 
necessary modifications were determined, they were made to 
the entire file using the VAX text editor, EDT. VJhen the 
modifications were complete the large file was broken into 
five separate segments of approximately 1000 lines each and 
transferred, via modem, to five separate floppy diskettes. 
Five diskettes were required so there was room to edit and 
compile the separate modules. The Microsoft compiler creates 
interm.ediate (scratch) files which are almost twice the size 
of the source file. The easiest, safest place to place the 
scratch files is on the same diskette as the source file, 
and 1000 lines of source code, cn the average, create scratch 
files which nearly fill the diskette. 

FORTRAN does not support true dynamic memory allocation, 
and will not allow the direct manipulation of array sizes 
during execution. Therefore, MEF , like many other finite 
element program, implements a pseudo-dynamic memory alloca- 
tion so that array sizes may be altered during execution. 

In order to do this, all arrays are declared as one dimen- 
sional arrays and stored sequentially in a single large 
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working array. A table of pointers is made to keep track 
of the beginning of each array, and as tables are deleted 
the separate tables are moved to accommodate the change. 

MEF defines the large working array, called VA, to be in 
blank common, and makes extensive use of named common for 
all other common block applications. For this reason, the 
basic structure of MEF had to be altered to implement its 
conversion with the Microsoft Compiler version 3.1. There 
were some 15 named common blocks in MEF, and since the 
compiler reserved 64 kilobytes for each one, approximately 
960 kilobytes would have been used just for common block 
allocation. Needless to say, there was not enough memory 
available even if the compiler/linker combination were 
capable of handling the problem.. 

The program structural change attempted, was to switch 
all of the elements in named common blocks to blank common, 
and the single array VA from, blank common to named common. 
It was envisioned that several named comm.on blocks could 
eventually be used so that the actual size of the working 
array could be larger than 35,366 bytes. Considerable 
time was spent in effecting this change, and trying to get 
the resultant version of MEF to work. However, the changes 
were too comprehensive, and the attempt was aborted when a 
new version of the compiler was received in May of 1984. 

The improvements in version 3.2 allowed the complete aban- 
donment of the restructuring approach, and while phase one 
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was unsuccessful, the time spent was not v;asted. It allowed 
familiarization with the structure of MEF, and v;ith the 
specific areas where the FORTRAN IV code needed to be 
altered for compatibility with subset FORTRAN 77. In addi- 
tion, it provided considerable familiarization with the 
operating system, editors, and hardware of both the VAX and 
the IBM PC-XT/COLUMBIA MFC. - 

C . PHASE TWO 

A new version of MEF which contained english comments 
was received about the same time as the new version of the 
Microsoft Compiler. Once again, proceeding as before, a 
smaller segment of code was used to determine the global 
changes required on the main body of the code, before trans- 
ferring it to floppy diskettes. Because of the changes in 
Microsoft FORTRAN version 3.2, there were significantly 
fewer alterations required to the global structure of MEF; 
all of the initial changes pertained, strictly, to the 
treatment of characters and strings, and to the task of 
making the named COMMON blocks the same length in each 
reference . 

1 . Microsoft Version 3.2 Improvements 

Improvements in the compiler which affected the 
implementation of MEF are as follows: 

1. Support for the BLOCK DATA statement. 

2. Support for arrays and COMflON blocks longer 
than 64 kilobytes. 
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3. Inclusion of A simple overlay linker (overlays 
v;ere unnecessary in the end, but at the time the investiga- 
tion started there was no way to tell whether or not they 
would be required) . 

4. Better support for the Intel 8087 coprocessor 
including implementation of the IEEE floating point math 
standard (the default for this version) . 

From the point of view of this investigator, the 
single most important change in the Microsoft Compiler was 
the support for large arrays and common blocks. This is 
the change which eliminated the unusual implementation of 
named COMMON present in version 3.1. It must be noted here, 
that though the common block problem was solved, the ability 
to address more than 64 kilobytes beyond the beginning of 
an array or common block was often defeated by compiler/ 
linker bugs. Simple applications such as the array solver 
shown in APPENDIX B had no difficulty in compiling, linking, 
and producing results using arrays limited only by the 
amount of memory available. However, more complicated 
programs with numerous common blocks and arrays provide a 
serious challenge to the compiler/linker combination, and 
the results are not always gratifying. The improvement 
over earlier versions, however, are monumental and conversa- 
tions with Microsoft Technical Support indicate that future 
releases of the compiler will solve the types of problems 
encountered in this research. 
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2 . Small Memory Model Implementation of MEF 



With the improvements mentioned above it took only 
a few weeks to provide a working version of MEF which was 
called the "Small Memory Model" (SMM) . That is, no arrays 
were declared to be large (the working array size was cut 
to 2000 words). For details of the compiler structure, the 
reader is referred to [Ref. 12: pp. 99-129] . The result 
was that the working array was kept in a default data segment 
referred to as DGROUP. DGROUP also contains memory pointer 
variables used by the compiler and run-time system; the 
stack, which is used for passing parameters between sub- 
routines; static variables and constants; and addresses of 
other data segments such as named COMMON blocks and large 
arrays. The result is that the small memory model is sig- 
nificantly limited in comparison to the later implementation 
(called the large memory model) because the working array 
size could not drive the size of DGROUP over 64 kilobytes 
without declaring the dummy arrays as large arrays. The 
only significant difficulty encountered during this con- 
version was that the BLOCK DATA module would not initialize 
correctly. Conversations with Microsoft technical support 
indicated that this was a known bug and that BLOCK DATA 
had to appear as the first object in a link module in order 
for correct initialization to take place. 

The correctness of the small memory model was veri- 
fied with the published results used to verify the VAX 
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implementation. In all cases, the results obtained on the 
microcomputer were identical with those published by Dhatt 
and Tuzot [Ref. 8], with the exception of residual computa- 
tions. Residual computations on the microcomputer produced 
number of the same (small) magnitude but not the same 
mantissa. It is suspected that this could be, in part, 
related to Microsoft's adoption of the IEEE standard for 
real number representation and calculations. The differences 
in residual computations are considered to be inconsequential 
by this investigator. At the time the small memory model 
was completed, MEF contained only the first two elements; a 
quadratic element for anisotropic harmonic problems in one, 
two, or three dimensions; and an eight noded quadrilateral 
element for two dimensional elasticity problems. 

3 . Large Memory Model Implementation of MEF • 

To begin with, the simplest of approaches was used 
to convert to a large memory model; all arrays were declared 
large (using the compiler "metacommand" $LARGE [Ref. 11: pp. 
186-187] ) . This approach was used because of its simplicity, 
and the fact that all dummy arrays of the working array 
(arrays which were contained within the working array) had 
to have the $LARGE attribute for the compiler to generate 
correct linkages. Initial compiler diagnostics included 
errors for several DO loops that indicated that the compiler 
believed an illegal jump into the range of a DO had been 
executed. Each of the affected DO loops was nested and did 
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not appear to violate the specifications of FORTRAN 77. 
Furthermore, they had not caused problems with the implementa- 
tion of the Small Memory Model. These problems were alle- 
viated by the use of the compiler metacommand $D066 [Ref. 11; 
p. 183] which tells the compiler to use the FORTRAN 66 DO 
loop conventions (it does not appear that this should have 
worked, but it did) . 

The resulting code compiled and linked without diag- 
nostics but did not work. The initial symptom was that it 
did not recognize any of the commands contained in the input 
stream. Diagnostic write statements revealed that the array 
used to store the list of commands was not initialized 
correctly. The array (BLOCS) was initialized by a DATA 
statement within the main program. The statement appeared 
to be correct in syntax and generated no diagnostics, yet 
writing the contents of the array indicated' that it con- 
tained nulls. The DATA statement initialization of the 
array was replaced with a call to a subroutine which ini- 
tialized the array using assignment statements. This solved 
the command recognition problems, but runtime errors which 
involved a variety of arithmetic operation violations were 
produced. Usually these errors were overflows, underflows, 
or attempts to use an uninitialized variable in an arith- 
metic operation. The particular error depended upon w’hat 
fix up had been used to overcome the previous error. 
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During this period, conversations with Microsoft 
Corporation's technical support department indicated that 
there were several reported bugs in the compiler. One was 
the BLOCK DATA problem mentioned above, and another was 
that arrays which had the large attribute were not always 
initialized correctly by data statements. However, this 
last problem was only supposed to occur with REAL arrays. 

The first problem, was solved by compiling the BLOCK DATA 
module separately, and linking it as the first module at 
all times. This did not alleviated the incorrect initializa- 
tion of the CHARACTER* 4 command array, so the MAIN program 
segment was comipiled separately assigning the $LARGE attri- 
bute to the working array, and allowing all other arrays 
in the MAIN program to default to $NOTLARGE. After this 
the command array was initialized correctly, but run-time 
errors were still a problem. 

The use of character arrays to pass table names was 
prevalent throughout MEF , and diagnostic write statements 
indicated that some of them were being initialized correctly 
and some were not. Since there were so many of them and 
there did not seem to be any particular characteristic which 
w'ould identify which ones would initialize and which would 
not, the arrays containing all of these tables were declared 
$NOTLARGE. This resulted in the tables initializing cor- 
rectly, but the run-time errors persisted. 
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It is appropriate to mention here that the time to 
compile and link after making changes which required recom- 
piling all modules was close to two hours on the Columbia 
floppy disk system. The IBM PC/XT had only recently become 
available and reduced compile and link time to under an hour. 

In addition, the linked module using the mixture of meta- 
commands was often over 400 kilobytes long. A standard 
floppy diskette will only hold 360 kilobytes and these ex- 
cessively large linked modules would not have been possible 
without the hard disk. Further, it would not have been 
possible to proceed without them either; the run-time errors 
proved essential in localizing the problems and identifying 
them as compiler bugs rather than logic errors. The linked 
module using the generic $LARGE metacommand, was approximately 
239 kilobytes, and while neither module would execute cor- 
rectly, the increase in size of the mixed module was highly 
suspect since the $NOTLARGE metacommand was supposed to 
produce less object code. 

Further conversations with Microsoft Technical Support 
indicated that there had been some reports that mixing the 
$NOTLARGE metaconunand with the $LARGE metacommand could 
cause problems, and that the syntax for the $ (NOT) LARGE 
command was incorrect in the reference manual. The manual 
[Ref. 11] specified that the $(NOT)LARGE metacommand could 
be used with a string of array identifiers separated by commas. 
However, according to technical support each occurrence of 
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the metacommand could only declare a single array name, and 
the metacommand required a colon separator between the command 
and the array name (i.e., $LARGE ; array). If the metacommand 
was used without an argument (called a generic $ (NOT) LARGE) 
then all arrays in the compiland were considered to have the 
particular attribute. 

Since the mixing of the $NOTLARGE command with the 
generic $LARGE command was suspect, numerous attempts were 
made to identify all arrays which required the $LARGE attri- 
bute and declare them specifically while allowing all others 
to default to $NOTLARGE. None of these attempts v/orked. 
Conversations with Microsoft Technical Support indicated 
that the investigation had possibly uncovered some new 
problems with the compiler and requested that the problem be 
documented and- sent to Microsoft with a diskette containing 
the software (they were less enthusiastic when told hov/ 
extensive the software was) . 

As a last act of desperation, all data statements 
which initialized arrays were commented out. The data 
statement initializations were performed with assignment 
statements either directly or through subroutine calls, and 
all modules were recompiled using the generic $LARGE meta- 
command. The resulting linked m^odule was approximately 24 0 
kilobytes long and was able to run the simple test problems 
with no difficulty. However, as the size of problems was 
increased, the behavior of the program became unpredictable. 
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The program worked properly until the problem required more 
than 64 kilobytes of the working array to run. This always 
occurred during execution of the assembly and solution pro- 
cess, and the results vary depending upon which element sub- 
routine is being used (i.e., which incorrect internal 
linkage is being used) . 

To summarize the problems mentioned above: 

1. Arrays which have the $LARGE attribute are not 
always initialized correctly with data statements. The in- 
correct initialization is not predictable, nor is it con- 
fined to REAL arrays. 

2. The $LARGE and $NOTLARGE metacommands cannot be 
used inside the same compiland. 

3. BLOCK DATA must appear as the first module in a 
link module. 

*4. Nested DO loops can sometimes generate compile 
time errors. 

In an effort to cleanup the long streams of assign- 
ment statements caused by the data statement problem, a 
separate compiland was created in which subroutines whose 
names begin with "INIT" (see Appendix E, pp. 247-258 ) were placed. 
The method used was to pass the name of the array being 
initialized as a calling parameter. The passed parameter 
was declared $LARGE, and all other arrays were allovred to 
default to $NOTLARGE. A $NOTLARGE "dummy" array was initial- 
ized with a data statement and a DO loop was executed which 
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assigned the elements of the "dummy" array to the passed 
array, and then executed a return. During the creation 
of these subroutines it was discovered that the data state- 
ments in the first subroutine of the compiland would not 
initialize correctly. If the initializations were character 
strings no diagnostic was generated, but if the initializa- 
tions were REAL constants the compiler would generate 
"CANNOT CONVERT CONSTANT" diagnostics. A subroutine called 
DUMMY v/hich had no function, and was never called by another 
routine was created and placed as the first subroutine in 
the compiland. The method is not elegant, but it worked, 
and it eliminated long strings of assignment statements which 
did nothing more than assign constants every time a subroutine 
was called. In the case of many subroutines these statements 
were only executed once, however, in the case of element 
' subroutines, they were executed many times during a problem 
solution. 

During the course of this investigation five elements 
were added to MEF, and it was only after the implementation 
of these elements and the initialization routines that 
problems large enough to cause difficulties were attempted. 

It was feared that the modifications to MEF had possibly 
induced some of the problems. In order to demonstrate 
whether or not the microcomputer code was portable, and to 
verify that compiler bugs were the problem, and not a failure 
in program logic, MEF was transferred by modem to the VAX 780. 
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The transferred code required four lines of code to be modi- 
fied. Two of the lines were OPEN statem.ents which contained 
file names that had illegal character strings under the VMS 
operating system, and two contained an illegal format ele- 
ment, a backslash (in the Microsoft implementation, the 
backslash suppresses an automatic carriage return' linefeed 
at the end an output line) . The resulting FORTRAN program 
compiled and linked with no further diagnostics, and its 
results have been verified using published test problems 
[Ref. 8], and [Ref. 13: pp. 170-177]. In addition, the 
results have been tested using the Graphics Interactive 
Finite Element Timesharing System (GIFTS), and CAL-NPS. A 
selection of the test problems has been provided in Appendix E. 

D. GLOBAL STRUCTURE AND USE OF MEF 

It is not the intention .of this thesis to provide a comi- 
prehensive programmer's reference manual or users guide to 
MEF. However, an overview of the structure of MEF will be 
helpful to any potential user of this powerful tool. For 
greater detail, the reader is referred to Chapter Six of 
[Ref. 8] . 

1 . Functional Blocks of MEF 

MEF consists of sixteen functional blocks. Some 
of the blocks are required for all problem types, and some 
of the blocks are optional depending on the problem being 
solved. The functional blocks are also the names of the 
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block calling cards (or commands) and are listed in Table 
III below. An underscore indicates that the block is 
required for all problem types. 

Functional block diagrams are provided in Appendix 
C, and complete descriptions of the input data cards are 
provided in [Ref. 8: pp . 440-447]. The main program con- 
trols the flow of all information through the functional 
blocks by transferring control to a subroutine called BLNNNN 
when the block calling card NNNN is encountered in the input 
file. The subroutine BLNNNN then performs preliminary func- 
tions such as logical unit identification, and reading of 
control parameters for the creation of various files and 
tables. The subroutine then calls subroutine EXNNNN. In 
all cases, subroutine BLNNNN provides appropriate default 
parameters which will be overridden by user values if 
specified. Subroutine EXNNNN then performs the major opera- 
tions of the block by calling on the needed subroutines in 
the MEF library. The above protocol holds for all blocks 
except STOP, COMT, and IMAG. All the functions of COMT 
and IMAG are performed by subroutine BLNNNN, and the func- 
tion of block STOP is performed by the main program. 

With the exception of blocks IMAG, COMT, and STOP 
each block uses a named COMMON/NNNN/ to assist in the pass- 
ing of needed information between subroutines. The blocks 
COMT and IMAG use a named common block, COMMON/TRVL/ , which 
is used as a scratch pad for various routines. Block STOP 
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does not require its own common block but uses the informa- 
tion from COMMON/ALLOC/ to perform its function of printing 
the maximum length of the working array used during execu- 
tion of the problem. The common block COMI'ION / ALLOC / , is 
used by subroutine ESPACE and VIDE to keep track of the 
amount of working space allocated at any time. Subroutine 
ALLOC allocates table space, and subroutine VIDE deletes 
unneeded tables followed by compacting the workspace. 

Variable and array naming conventions and details 
are contained in [Ref. 8: pp. 369-376] these details are 
omitted here because they will only be helpful to the 
reader who intends to modify MEF . In that case the reader 
is referred to the source for the extensive detail required. 



Table III. Functional Block Summary 

IMAG Copies the input data card images to the output 
listing. Must be the first card if used. 

COMT Places comments into the output listing. 

COOR Reads the nodal coordinates and number of degrees 

of freedom of each node. Provides automatic node 
generation . 

DLPN Provides the ability to modify the degrees of freedom 
at a node. Particularly useful with problems using 
more than one element type. 

COND Reads the boundary conditions. 

PRND Reads nodal properties if required by the problem. 

PREL Reads element properties if required for the element 
type being used. 
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ELEM 


Reads the element connectivities. Also reads element 
group information when more than one element type is 
used, or when elements have different properties. 
Provides automatic element generation. 


SOLC 


Input of concentrated loads. 


SOLR 


Input of distributed loads. 


LINM 


In-core assembly and solution of a linear system of 
equations . 


LIND 


Out-of-core assembly and solution of a linear system 
of equations. 


NLIN 


Provides a limited nonlinear solution capability 
using the Newton-Raphson method. 


TEMP 


Provides the solution of a linear or nonlinear time 
dependent problem using an Euler method. 


VALP 


Computes eigenvalues and eigenvectors using the sub- 
space iteration method. 


STOP 


Terminates execution of the problem. 




The follow’ing information concerning array names is 



provided because the array names may appear in the output 
listings with no explanation when verbose printouts are 
requested. Block COOR creates the table of nodal coordinates 
in the array VCORG, and the cumulative degrees of freedom in 
the array KDLNC . Block COND stores the equation identifica- 
tion number for each degree of freedom in the array KNEQ, and 
the specified degrees of freedom at a boundary in the array 
VDIMP. Block ELEM creates the array KLD which contains the 
location of the beginning of each column in a skyline m.atrix, 
and writes a disk file containing all information pertinent 
to the description of an element- The disk file will be used 
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in the assembly process to create element and global stiff- 
ness matrices. Block PREL creates the array VPREG in which 
it stores the properties of the various groups of elements. 
The global stiffness matrix, VKG, is created in block LIND 
or LINM. The entire stiffness matrix consists of three 
submatrices VKGS , VKGD, and VKGI which contain the upper 
triangle, the diagonal, and the lower triangle of the 
matrix, respectively. VKGI is only present for nonsymmetric 
matrices. The Matrix VFG contains the global loads, VDLG 
is the solution vector, and VRES is the residuals and reac- 
tions vector. 

As mentioned above, MEF provides various levels of 
output. The quantity of output desired fromt a given block 
is controlled by a parameter on the block calling card 
(described in detail [Ref. 8: pp. 440-447] which ranges 
from 0 (the assumed value) to 4. The default value provides 
all the information needed to verify the input stream and 
obtain the desired answers while the values 1 thru 4 provide 
various levels of verbosity. Each level provides all that 
the last one did plus additional information, and in some 
blocks levels above 2 have no additional meaning. The 
reader is cautioned against the indiscriminate use of ver- 
bose listings. With larger problems it is easy to create 
megabytes of listing which can even overrun the capacity 
of a hard disk. The best procedure is to decide where ver- 
bose output is needed and to use it only in the required 
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blocks. Using verbose printing on the solution blocks 
creates reams of output and is seldom of any value to the 
user. The solution processes have all undergone extensive 
verification, and problems which arise are generally trace- 
able to the input stream. The only exception is when the 
problem requires more than 64 kilobytes of the working 
array in which case the program will most often terminate 
with a run-time arithmetic operation error. In this case, 
further processing will have to be done with the VAX 780 
version. 

2 . Elements Supported by MEF 

The current version of MEF consists of approximately 
7000 lines of code (including comments) . Five additional 
elements have been added to make a total of seven elements. 

A summary of the elements is listed in Table IV. All ele- 
ments have been written in French and with the exception of 
elements 1 and 2 produce most of their output in French. 

The user will have little if any trouble understanding the 
results and should consider the experience culturally en- 
riching. Most of the words which appear in the listings 
are cognates or recognizable from the context in which 
they appear. Time did not permit the translation of the 
format statements. 

The block PREL will require the properties of the 
elements to be entered as a data card image. The proper- 
ties are specific to the element routine alone, and must be 
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entered in the order expected by the element routine. Table 
IV summarizes the properties required by each element in the 
correct order. For those elements which require a material 
density property, the property is used in the creation of a 
mass matrix for the solution of eigenvalue problems. This 
property may be omitted if the block VALP will not be used. 
Element 5 is not implemented in this version, and has been 
left out of Table IV. 



Table IV. Element Summary 



ELEMENT 

NUMBER DESCRIPTION REQUIRED PROPERTIES 



1 


Eight noded quadrilateral 


1) 


coefficient DX 




for anisotropic harmonic 


2) 


" DY 




problems in 1 , 2 , or 3 


3) 


" DZ 




dimensions 


4) 


specific heat 
capacity 


2 


Eight noded quadrilateral 


1) 


Young ' s modulus 




for 2 dimensional elasticity 


2) 


Poisson's ratio 




problems 


3) 


0 = plane stress 






4) 


specific m.ass 


3 


Six noded triangular 


1) 


Young ' s modulus 




element for 2 dimensional 


2) 


Poisson's ratio 




elasticity problems 


3) 


0 = plane stress 

1 = plane strain 


4 


Three noded triangular 


1) 


Young ' s modulus 




element for 2 dimensional 


2) 


Poisson's ratio 




regions of unit thickness 


3) 


0 = plane stress 

1 = plane strain 






4) 


X body force 
component 






5) 


Y body force 
component 






6) 


specific mass 



45 



ELEMENT 

NUMBER DESCRIPTION 



Three noded triangular 
plate bending element for 
isotropic or orthotropic 
materials 
Notes : 



REQUIRED PROPERTIES 

1) index for inte- 
gration by 
Gauss-Radau (1-5) 

1 = least accurate 
5 = most accurate 



If the material is iso- 


2) 


thickness 


tropic properties are 


3) 


1 = isotropic 


5) Young's modulus 




2 = orthotropic 


6) Poisson's ratio 


4) 


location to cal- 


7) , 8) = 0 




culate stresses 


If orthotropic 




1 = centroid 


5) D(l,l) 




2 = corner nodes 


6) D(l,2) 




3 = midnodes 


7) D(2,2) 


5) 


- 8 ) according 


8) D(3,3) 




to notes 


where the D(i,j) are the 


9) 


specific density 


bending stiffness 






elasticity constants 






Twenty noded brick for 


1) 


Young ' s modulus 


three dimensional 


2) 


Poisson's ratio 


elasticity problems 






Truss element for 2 or 


1) 


cross-section 


3 dimensional problems 


2) 


Young ' s modulus 




3) 


density 



3 . Running MEF 

To execute MEF as installed on an IBM PC-XT or com- 
patible, simply boot the operating system, log to the direc- 
tory in which MEF. EXE is located, and type MEF followed by 
a carriage return. MEF will respond by asking for the name 
of the command input file. The response may be any legal 
MS-DOS file name, including a disk drive identifier (for 
example, a : INPUT . DAT) . If the response is the MS-DOS 
identifier CON then MEF will expect to receive all commands 
and inputs from the console keyboard. After entering the 
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input file, MEF will request the name of the output file. 

Once again, this may be any legal file name including PRN . 

The response PRN will result in the output being directed 
to the printer. MS-DOS pathnames are not supported by MEF 
in the naming of input and output files. After the entry 
of the output file, MEF will begin to process the command 
input file; as MEF processes the input commands it will up- 
date the console with information concerning which functional 
block it is processing. 

When MEF is used on a system which does not have a 
hard disk it is best to keep the input and output data files 
on a separate diskette in the default drive, and execute MEF 
from the default drive using a drive designation. For example, 
if the default drive was a: the MEF program could be started 
by typing b:MEF with the MEF diskette in drive b: and a 
scratch diskette in a:. The reason for this is that MEF 
creates several scratch files on the default drive during 
execution, and there is not much room left on a floppy 
diskette which contains MEF. MEF will create two scratch 
files for an in-core solution, and three scratch files for 
an out-of-core solution; the names of these files will begin 
with $$ so that it is not likely they will coincide with 
existing file names. 

Once the initial responses to MEF have been made, 
the present version of the code expects all input to come 
from a command file, or the console. Attempting to input 
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directly from the keyboard can be a very frustrating expe- 
rience, and if a mistake is made there is no recourse but 
to begin again. For this reason, it is recommended that 
a command input file be created with a suitable text editor 
FORTRAN 77 rules apply to the format of the cards. That is 
entries separated by commas will override the specified 
format, however, there must be no blanks imbedded in the 
line if the format is to be overriden. As can be seen 
from the examples provided in Appendix D either method will 
work, and the user may find it convenient to enter some 
cards according to the format, while other cards may be 
easier to override. 

It is advisable to send the output file to disk 
rather than to the printer. The disk file can be viewed 
and even edited with a text editor prior to printing. Send 
ing the output to the printer will simply cause the process 
to be output bound. MEF also uses a 132 character output 
line, and it is advisable to shift the printer to a 17 char 
acter per inch mode if it does not have a wide carriage. 

The amount of space required to run the problem 
must be of concern to the user until the bugs have been 
eliminated from the compiler. The required number of bytes 
may be estimated using the following formula: 

space required = (bandwidth) (number of nodes ) ( 8 ) ( 2 . 0 ) 
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The factor of 2.0 is an empirically determined factor 
used to account for the storage of all tables in the working 
array. Because of the compiler bugs which have not yet been 
circumvented or corrected, if the space required approaches 
64 kilobytes then the compiler /IBM PC capabilities have been 
exceeded, and MEF will probably fail with a run-time error. 
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III. RESULTS AND CONCLUSIONS 



A . SUMMARY 

Chapter I recounted a portion of the history and develop- 
ment of the microcomputer and attempted to list some of the 
reasons that microcomputer based, engineering software has 
been slow to develop. The main reason is that it was too 
difficult to create engineering software on the rather 
limited resources provided by the eight bit microprocessor, 
and limited software tools which existed at the time. In 
addition, the engineering software which was created was slow 
and unwidely to use which hampered its propagation and devel- 
opment. However, the advent of the sixteen bit microprocessor 
has provided a hardware product whose capabilities are more 
than adequate for engineering applications. This opinion 
is supported strongly by the fact that the majority of main- 
frame minicomputer systems today are based on sixteen bit 
processor architecture. The major difference between the 
minicomputer and the microcomputer is operating system 
maturity, and processor speed. The speed advantage is 
partially offset by the fact that a microcomputer is seldom 
used to support timesharing applications, and can often pro- 
duce results almost as quickly as the minicomputer burdened 
with the management of timesharing (one must count the time 
spent waiting, not just the CPU seconds). 
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Regardless, the sixteen, bit microcomputer has been 
around since 1981, yet there is little engineering software 
available today. The reason is that reliable software tools 
(operating systems, compilers, etc.) lag the introduction of 
hardware by a considerable amount of time. The premise of 
this thesis was that the necessary maturity of operating 
system and compiler had been achieved, and a combination of 
hardware, operating system, and compiler was chosen to test 
the premise in the specific application of finite elements. 

As stated in Chapter I.B, the purpose of this investiga- 
tion was to implement a general, finite element program on 
a sixteen bit microcomputer, and determine whether the result 
was practically useful. The actual programming and conver- 
sion of software began in March 1984, and continued thru 
August 1984. During that period two distinct version of MEF 
were installed on the IBM PC-XT and the COLUMBIA MPC micro- 
computers. The first version was a small memory model which 
performed all the functions of the mainframe version but 
was quite limited in the size of problems it could handle. 

This was to be expected, and was merely a point in the step- 
wise implementation of the objective. 

The small memory model was then converted to the current 
version of MEF which is referred to as the large memory model. 
The large memory model is significantly more capable than 
the sm.all mem^ory model in terms of the problem size that can 
be handled. However, as detailed in Chapter II the large 
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memory model is not able to take advantage of the full memory 
available because of the existing bugs in the Microsoft 
FORTRAN 77 Compiler version 3.2. 

B. CONCLUSIONS 

Although it was not the intention of this investigation 
to evaluate the hardware or operating systems of the two 
machines, it is impossible to write a conclusion without 
mentioning them. Throughout this investigation, both 
systems (the IBM PC-XT, and the COLUMBIA MPC) have functioned 
faultlessly. This observation includes the operating systems 
and the hardware. Both computers have been supported by a 
variety of peripherals manufactured by different companies, 
and neither system has operated in a controlled environment. 

The machines are turned off and on at will, and have received 
only the most cursory preventive maintenance. Yet, both 
systems have maintained one hundred percent availability, on 
demand, with no time spent at reduced capability. The pre- 
vious experience of this investigator has been with mainframe . 
computing systems, and the reliability of these microcomputer 
systems was totally unexpected. 

At the beginning of this investigation, it was not clear 
that a program the size and complexity of MEF could be con- 
verted to operate on a microcomputer. However, a background 
in computer science and operating systems led this investigator 
to believe that it might be possible. The results have been 
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gratifying on one hand, and frustrating on the other. The 

frustration results from the limitations imposed, not by 

the program, and not by the hardware, but by the immaturity 

of the compiler. With the example of the matrix solver 

shown in Appendix B it is clear that the machine and compiler 

combination have the capability to solve large problems. It 
% 

is unfortunate that compiler bugs prevent the full realiza- 
tion of that capability with a more complex application. 
However, conversations with Microsoft Corporation indicate 
that a new release of the compiler may be available as early 
as January 1984, and even at this time, advertisements for 
competitive compilers are beginning to appear in periodicals. 

A more objective statement of the results is that the 
largest problem which could be run on the microcomputer took 
less than five minutes from start to stop, and the results 
are comparable to the results obtained from other- sources . 

It is clear that the execution speed and capability of the 
software is acceptable- Therefore, the utility of MEF is 
assured, subject to the temporary restriction of problem, 
size. At this time, MEF is an excellent classroom tool, and 
is capable of solving most problems given as academic exer- 
cises in solids and conduction heat transfer. It is also 
capable of handling many problems which are not assigned as 
academic exercises. In addition, because of its modular 
structure, MEF also provides an excellent teaching tool for 
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the finite element classroom. As soon as the problem size 
restrictions are overcome, MEF will have far greater applica- 
tion on the microcomputer. 

It is important to understand the significance of what 
the ability to create and execute software of this complexity 
and capability (on a microcomputer) can mean to the field of 
engineering in general. If the compiler had been "clean," 
the problems encountered in converting MEF would have been 
minimal. The cost of a microcomputer system is well within 
the range of most small engineering firms, and the increase 
in problem solving capability is even more dram.atic than the 
step from the sliderule to the programmable, pocket calculator. 
There is a wide variety of software available today including 
finite elements, optimization, heat transfer, fluid dynamics, 
electronic circuit design, control systems, etc. The cost 
of computer time has made much of this software unavailable 
to smaller concerns. However, the near future will undoubt- 
edly see the conversion of much of this software to micro- 
computer systems. The possibilities are encouraging. 

C . RECOMMENDATIONS 

The follov/ing recomm.endations are made for future devel- 
opment of MEF : 

1. MEF, as implemented, is primarily a batch stream pro- 
cessor. By that it is m.eant that the input is noninteractive 
and formatted. The facility of MEF would be enhanced by 
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the addition of interaction, or an interactive preprocessor 
to produce the "steering file" (command input file) . 

2. The capabilities of graphics to summarize the 
results from any finite element application cannot be over 
stated. In addition, the graphic representation of the 
structure and finite element mesh is important for the 
detection of errors in the problem definition; Therefore, 
the addition of graphics to MEF would significantly im.prove 
its capability. 

3. The possibilities regarding the addition of elements 
are almost without bound. However, the addition of a cubic 
solid element (a 32 node brick) would provide significant 
additional capabilities. The addition of such an element 
would provide an exact solution for beams (using only one 
element for node loadings) , and an excellent model for 
plates and shells. The addition of such an element would 
allow the elimination of a number of the existing elements, 
at the cost of more memory; the trade off would have to be 
evaluated . 
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APPENDIX A 



CPU CLOCK SPEED TEST 

The following Intel 8088 Assembly language program, 
assembled with the MICROSOFT assembler (MASM), was used to 
determine the apparent speed of the processor, or the loss 
of processor speed due to the processing involved in handling 
the interrupt driven operating system. 

When executed, the program loops for the number of times 
specified. The actual number of times through the loop can 
be determined by multiplying the contents of the BX register 
by 65,536. In this application, the result is 10,485,760. 

The program accesses the system clock before and after com- 
pletion of the loop, and computes the elapsed time to the 
nearest second.- The elapsed time is then displayed on the 
screen. The test was done numerous times on both systems, 
and never computed an elapsed time less than 52 seconds nor 
one greater than 53 seconds. 

Clock cycle calculations were computed by counting the 
total number of machine cycles executed between the labels 
WAIT and ENDViFAIT. The eight cycles used for initialization 
in the two steps before the label WA.IT have been included 
only for the sake of preciseness so that all machine cycles 
between clock accesses were accounted for. The number of 
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times through the loop is large enough to insure that any 
error induced by not counting the clock accesses is 
insignificant . 



INSTRUCTION 


NO. OF TIMES 
EXECUTED 


CLOCK CYCLES 
PER EXECUTION 


NO. OF CYCLES 
IN LOOP 


MOV BX^OAOh 


1 


4 


4 


o 

o 

X 

u 

> 

o 

<1: 


1 


4 


4 


DEC BX 


160 


2 


320 


JZ END WAIT 


1 XFER 


16 


16 




159 FAILS 


4 


636 


DEC CX 


1048576 


2 


20971520 


JNZ LOOPS 


1048560 XFERS 


16 


167769600 




160 FAILS 


4 


640 


JMP WAIT 


160 


15 


2400 



Total Clock Cycles In Loop 188745140 



Apparent Clock SPeed = 188745140 = 3.56 MHz 

53 
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CSE6 


SEGMENT PARA ’CODE’ 


■ 

5 


ASSUME 


CS;CSE6, 


D3:CSEG, SStSTACKSS, ESii'jOTrilNS 


a 

5 


0R6 


OlOOH 






PUSH 


DS 


jSave DS for return to DOS, and 




SUB 


AX, AX 


5 put a zero on the stack. 




PUSH 


X> 

X 






MOV 


AX, CSEG 


;Set the DS register. 


a 

1 


NOV 


DS, AX 




! 


LEA 


DX, STARTMSG 






CALL 


OUTMSG 


;Output start message 


a 

! 






;to screen. 


5 

a 

1 


CAa 


BEEP 


;Beep terminal bell. 


a 

! 


CALL 


GEHIME 


;Reads clock chip and stores 




MOV 


STARTTW, DX 


;minutes and seconds in taemory 


a 

1 






; location, STARTTM. 


• 

1 


MOV 


BX, OAOh 


•,Initialize counters for delay loop. 


■ 


MOV 


CX, OOh 


;For real run BX=0A0h 


■ 

1 

WAIT; 


DEC 


X 

CO 


;Run around in circles about 




JZ 


ENDWAIT 


;10 million times. 


LOOPS; 


DEC 


CX 






JNZ 


LOOPS 




• 


JMP 


WAIT 




• 

ENDWAIT 


a 

a 








CALL 


GEHIME 


;Read the clock chip and 


a 


MOV 


STOPTM, DX 


jstore in memory location STOPTM. 


• 

1 

■ 


CALL 


BEEP 


;6eep terminal bell. 


• 

f 


LEA 


DX, ENDMS6 






CALL 


OUTMSG 


;Send all done message 



;to the terminal. 



ELAPSED TI)<E Comoute elapsed time. 
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{Elapsed tine is assumed less than 
;one minute. 





XOR 


AX, AX 


{Clear AX. 




MOV 


BX, STOPTM 






MOV 


CX, STARHM 






MOV 


AL, BL 


{Stop time in seconds in AL 




CMP 


BH, CH 


{If minute has incremented during 




JE 


LBLA 


{wait loop must add 80 seconds to 




PDC 


AL, 60h 


{Stop time to compute correct delta t 




MA 




{All of this works because the clock 


LBLA: 


SUB 


AL, CL 


{pi\>vides BCD quantities. 




DAS 






• 


MOV 


OX, AX 




• 


CALL 


ASCCONV 


{Convert elapsed time to ASCII, 




LEA 


DX, ELTIMEMS8;and output elapsed time, in seconds. 


5 


CALL 


0UTMS6 


{to the screen. 


• 

f 


MOV 


AH, ACh 


{Return to DOS. 




INT 


21h 





i 

1 



1 



BEEP 


PRX 


NEAR 






MOV 


AH, 02h 


{SUBROUTINE to beep the 




MOV 


DL, 07h 


{terminal bell. 




INT 


21h 






RET 






BEEP 

• 


ENOP 






• 

GEHIME PROC 


NEAR 






MOV 


DX, 02C2h 


{SUBROUTINE to reads system clock. 




IN 


AX, DX 






MOV 


DX, AX 


{The hours are placed in CX, and the 




RET 




{low order count (approx 18.2 counts 


SEHIME 

« 




ENDP 


{per second) in DX. 


• 

OUTMSG 


PROC 


NEAR 






MOV 


AH, 09h 


{SUBROUTINE to output string pointed 




INT 


21h 


{to by DX. 




RET 






OUTMSe 

• 

• 

1 

ASCCONV 


ENDP 


PROC NEAR 


{Convert elapsed time to ASCII. 




LEA 


SI, ASCVAL+3 


{SI points to least significant 
{digit’s storage location. 




MOV 


CX, OA 


{Initialize loop counter. 
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ULC; PUSH 


CX 


;Save the loop count. 


MOV 


o 

X 


;Shift count in CX. 


PND 


PX, OOOFh 


jStrip right !iost nybble. 


OR 


PX, 30h 


{Convert digit to PSCII character. 


MOV 


CSn, PL 


{Store the character. 


DEC 


SI 




MOV 


PX, DX 




SHR 


PX, CL 


{Move the next digit into the least 


MOV 


DX, PX 




POP 


o 

X 




LOOP 


LBLC 


{significant nybble. 


RET 

PSCCONV ENDP 







1 



STPRTMS6 


DB 


’Begin wait loop’ ,0Dh,0Ph,0Ph,0Ph, 


ENDMS6 


DB 


’End wait loop’,0Dh,0Ph, ’$’ 


STPRTTM 


DU 


? 


STOPTM 


DU 


7 


ELTIMEMSG DB 


’Elapsed tine in seconds: ’ 


PSCVRL 

• 


DB 


’ $’ 


t 

CSE6 

■ 

1 


ENDS 




m 

» 

STPCKS6 


SEGMENT PPRP STPCX ’STRCK’ 




DU 


80 DUP(?) 


STPCKS6 


ENDS 






END 
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APPENDIX B 



MATRIX SOLUTION TEST PROGRAM 



The following FORTRAN program was used to test the 
capability of the machine to. solve a system of equations, 

[A] (X) = (B) , whose coefficient matrix, [A] , required more 
than 65,536 bytes of storage. The main program requests a 
job name, and the number of equations to be solved. It then 
fills the [A] matrix symmetrically, in banded fashion, with 
the number of equations (NEQ) on the diagonal, and each 
subdiagonal decreased by one more than the previous sub- 
diagonal; the right hand side of the system, (B) , is always 
a vector of 100.0's. For example, if the number of equations 
were 5 the program would solve the following system: 



5 


4 


3 


2 


1 


XI 


100 


4 


5 


4 


3 


2 


X2 


100 


3 


4 


5 ■ 


4 


3 


X3 


= 100 


2 


3 


4 


5 


4 


X4 


100 


1 


2 


3 


4 


5 


X5 


100 



The program stores the solution and the solution time on 
the disk in a file which is identified as jobname.DAT. In 
addition, the results and solution time are displayed on the 
console. The system is positive definite which guarantees 
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that no processor error condition will occur in the solution 
of the system. The number of steps to achieve solution is 
fixed for a given matrix size, and the amount of time to 
achieve the solution is not affected by the accuracy of the 
answers. In short, the only thing which is of interest 
here is being able to run a series of benchmarks which are 
guaranteed to proceed to completion. 

The elapsed time is determined by successive calls to an 
assembly language routine, TICKER, which must be assembled 
separately and linked to the FORTRAN subroutines. The 
routine was added because the Microsoft FORTRAN compiler 
has no function which allows access to the system clock. 

For large systems, which require more than a few seconds to 
solve, the program could easily be set up to signal the user 
to start and stop timing with a stop watch. However, for 
smaller systems,' such as^ the 25 and 32 DOF tests, the elapsed 
time is too small to determine with a stopwatch. Particularly 
when the results are to be used to predict solution times 
for larger systems. 
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The results of the four test runs are as follows 



3.8461538461538E+00 
-1.55394314A3739E-15 
6.70a722710880£E-15 
1.3505456915410E-15 
-4.0948604156610E-17 
1.6435513664323E-15 
2. 7453422022684E-14 
2. 1610766337363E-14 
3. 8461538461539E+00 



FOR TEST-1. DAT 
The Solution Is 



6.9269455534349E-15 

6.9501601786561E-15 

-1.2678408065005E-15 

4.45500a4107864E-15 

7.4119342420388E-15 

6.7101591338120E-15 

-1.9176192891666E-14 

-9.5a976B2156343£-15 



TIME = .05767 MINUTES 

NEQ = 25 



3.0303030303030E+00 
-5.3765407995495E-16 
2.0606496035387E-15 
-6.7609270454854E-15 
-5.7766604500654E-15 
2.3465232733079E-15 
1.28a0062543391E-14 
-8.0694495013671E-15 
2. 94807581 12488E-15 
-4.9194647979880E-15 
9.76802380811056-15 



FOR TEST-2. DAT 
The Solution Is 

2.8196140307940E-17 
8.658348l3928a2E-lS 
7.%85816303165£-16 
2. 0326481 785032E-15 
3.3827l07731548E-i6 
1.2883032314559E-14 
-3.9098450557405S-15 
2. 1399342284950E-14 
2.2982194850899E-14 
2.4517690154337S-14 
3. 0303030303030E-t^0 



TIME = .11800 MINUTES 

NEQ = 32 



•5.8183935461B87E-15 
•7.39765116448196-15 
•4.8174716530773E-15 
•5.7056834S28442E-15 
•7.3233033075074E-15 
2.0336013365003E-14 
■£.6%4397150294E-15 
■2. l33896197602£E-:4 



3. 1618483033404E-16 
•2.3342982419572E-15 
2. 17S1157329£23E-:5 
5. 7534701^1 3748E-15 
•8. 0233S9S12905bE-'b 
■2. 2432353447170E-;^ 
2. 15891757536‘SE-:5 
•2. 46238000156741:,“ 14 
•2.0530161S15457E-:- 
■2.4163057o42:73E-I4 
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FOR TEST-3. DflT 
The Solution Is 



9.9009900990099E-01 
6.65101896A6372E-16 
6.0231650128169E-15 
-2.009A637123553E-15 
-2.8687989A83966E-16 
-1.1568290666613E-15 
8.72078A0A65378E-15 
-1. 639041 1200061E-15 
-1.2004944675362E-14 
8. 198038677341 lE-15 
-4. 1109406779441E-16 
1.2843962732201E-14 
4. 1975035855025E-15 
2.0954050800393E-14 
3.8276714669663E-15 
-9.5233129178282E-15 
3.4023789901836E-14 
5.49193878642%E-15 
-1.9756178267955E-I4 
-2.5651465217669E-16 
-9.8171447719577E-15 
1.7386323809334E-14 
7.4810453570045E-14 
-5.2844278730221E-15 
-4. 925609201 314 lE-14 
5.3017426386583E-14 
1.3768713958846E-14 
-5.53886637185%E-14 
-4.7976771901982E-14 
1.090695%78161E-i4 
2. 308430731 1326E-14 
5.5017140084367E-15 
3.6541830133710E-14 
9. 9009900990098E-01 



9.5453-377195709E-17 
3. 1602280670458E-17 
-7. 546075770401 lE-15 
2.453384032B452E-15 
-i.4755330610054E-15 
1.50S7832271187E-15 
-1.2381694833975E-14 
-5.aT015339797!lE-!5 
6.8472608535533E-15 
-1.0210186519736E-14 
9.53826361£44i3E-i5 
-1. 1193652655344E-14 
6.4546905439845E-15 
-9.0052087558773E-15 
1.2806988307790E-i4 
-7.7232684139203E-16 
-3.0417698345392E-14 
-2.6434621782263E-15 
3. 9992584 196400E-15 
-1. 38204777372032-15 
2.8267623241553E-14 
2. 1753926657387E-15 
-3.7721279929513E-14 
9.2214334665882E-15 
2.6317476194804E-14 
-5.0804380408870E-14 
-2.5653900778252E-14 
4.7481349640073E-14 
-5.465580056777(€-15 
-4.9474940339240E-14 
-7.4740551015651E-14 
-7.2903&26883754S-14 
-3.2333428774833E-15 



-6.85407*2491002£-16 
-2. 1833385348956E-16 
1.8359559151423£-:5 
-1.47850183553^92-16 
5. 850742554 15372- -6 
3.04635927!39a3£-16 
5.87593596248612-15 
1. 105S030932832E-14 
-4. 1598391672334E-15 
2. 27055408721 B9E-15 
-1. 10e60£4973244E-14 
-8.81453737861802-16 
-1.69559411762632-: 4 
-1.24145649211442-14 
5.8470481C6i057E-15 
-1.41905695051432-14 
1.3HC805120962£-:5 
1.9542450938392E-14 
2. 12BC027556825E-15 
1. 352S536299486E-1S 
-2.63619150380622-14 
-5.4033187890^532-14 
5.8007280323S21E-16 
2.86659062197862-14 
-1.7483217375341E-:4 
-4.83113436333112-17 
5. 13i7810949042E-;4 
1.4264847963332E-15 
4.5790962529292E-:4 
2.56330789302142-14 
8. 10391115107722-14 
1.43338528517002-14 
1.7611461206e63£-l5 



TIME = 3.47767 MINUTES 

^€Q = 100 
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FOR TEST-4. DAT 
The Solution Is 



4.9751243781094E-01 
-4.5243592798550E-17 
1.9287997925250E-16 
-2.9397240715880E-16 
3. 56841931 13147E-15 
2.2367031680076E-15 
2.3423274737468E-15 
-2.3369133923859E-15 
1. 481534731 1197E-15 
1.6098180082962E-15 
4.1142527518302E-15 
-1. 34399710177262-16 
3.6405878180938E-15 
-7.4204493566424E-16 
-5.5831197567108E-15 
-1.1138016247761E-14 
-1. 273166791 1900E-14 
1.1129991569071E-14 
7. 85445101362692-15 
-1.8908238702695E-14 
-2.6984423267922E-15 
-1.2559422095201E-14 
8.9192780343309E-15 
1.6831028417556E-14 
-1.4528803365360E-14 
-4.0419987736125E-15 
6.7143807187873E-16 
-4.3836842898259E-14 
-1.7159643252139E-14 
9.5041349490937E-15 
-5. 1536403462991E-14 
-1.76258284540%E-14 
8. 2644581 147134E-15 
-1.3568562182020E-14 
-2.2276578855938E-14 
-3. 1446321094405E-14 
-7.6312355214359E-15 
1. 1693870743178E-15 
-2.5021610665137E-14 
8.8949331557590E-14 
4.8018624008535E-15 
2. 3609456951757E-14 
-5.4417749168070E-15 
-9.8757298592470E-14 
4.2798877724721E-15 
7. 37055480197 14E- 14 
4.1742722696338E-14 



8. 1040715769944E-16 
4.8230247663559E-16 
-4.6407798043720E-16 
-1.5759067617456E-15 
-2.7160690412767E-15 
-7.8610974959264E-16 
-1.2265976148990E-15 
4.3545595605503E-15 
-2.8874830767152E-15 
-6.7681167605003E-16 
2.5555952712I68E-I6 
-1.0247340536123E-15 
-2.6210766726603E-15 
2.0984858032874E-15 
-1.0008036406686E-16 
9.9029445306656E-15 
1.90411348207112-15 
-9.4719234619579E-15 
i.9739929108076E-15 
2.5020628162063E-14 
8.47139288617822-16 
1.5484553485252E-14 
-2. 90802590393522-15 
-3.4373309123280E-15 
1. 25997906308632-14 
-9.78929571497732-16 
-3.29142416392962-15 
4.07639823589102-14 
1.48772036494562-14 
-2.34082268820682-14 
3. 16991864579872-14 
3.50685283040642-14 
-5.47126345421092-16 
2.35735205227752-15 
3.44588323522522-14 
-1.87119788540882-15 
-1.56914296520232-14 
1. 15100627754832-14 
2.44492988081062-14 
-6.04293882305522-14 
-3.69743251846032-14 
-4.83718594473272-14 
1.95558399710062-15 
5.79826078523082-14 
-2.48175623375302-14 
-1.68944735752672-14 
1.50151254410232-14 



-6. 30227041055032-16 
-4. 80946866564382-16 
1. 17362651770402-15. 
1.986339310.63542-15 
-3.2300531460S912-:5 
-1.01406589326752-15 
-9. 43102033214622-16 
-4.26814015579472-16 
-4.3348156712426E-16 
-3.30249413704222-15 
-4.23306.39814229E-:6 
5.95254172009272-16 
-4. 13678536925292-17 
1.45035446048532-15 
4. 39873231637622-15 
8.0220946482954E-I5 
-1.69030569857532-15 
-4.04368635268052-15 
-2. 792868551 1919E-I6 
-7.94769%7167952-15 
6.03031299659462-15 
-1.58036253846122-14 
-1. 15402902953942-14 
9.82431756023532-15 
-1. 16398387944592-14 
8.89054377995022-15 
•2. 09764085780602-14 
-1.44946345442722-14 
4.51292550677182-15 
3.43017309303492-14 
-2.46056382917222-15 
-2.61316023523152-14 
7.705104425806122-16 
1.6373%33747732-14 
2.04409836818652-16 
2. 16652251413202-14 
1. 83780671737792-14 
-8.20%5138205£5£-I5 
-4.80526114424442-14 
1.33681748700852-14 
4.02565251747862-14 
7.32109212258792-15 
5.77530319973142-14 
3. 18346142314392-15 
-2.20iS042934(Ki52-14 
-6. 30079321690332-14 
-7.81609039810222-15 
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-a.2835011964091£-14 
-1.0022774539354€-13 
4.3343846624364E-14 
7.0939813268461E-15 
2. 8251919858608E-14 
-3.2055878018689E-14 
-1.5764743391028E-14 
-4.2716861775601E-15 
1. 1405791906399E-13 
-4.2453076345260E-15 
2.9451463111826E-14 
-6.8346372628696E-14 
-5.7453411423013E-14 
4. 14978545381 18E-14 
6.9963930172649E-14 
2.6881322987547E-14 
-1.6406994082191E-14 
-7.9561942476198E-14 
-9. 1658330019724E-15 
8.4360246180512E-14 



1.2E8916393S884E-14 
1. 1574453269464£-i2 
-3.6739450892136E-14 
2.0012673956105E-I4 
-6.4663404204362E-15 
1. 1309775543359E-14 
2.3657361537963E-14 
-1.8147460594876E-15 
-5.5741573151303E-14 
1.0362532985526E-13 
-2.8870846145435E-14 
7.3991561334720E-14. 
1.8413394245291E-14 
-5.9210679251088E-14 
-5.3643566057255E-14 
4.7054090288469E-14 
1.9008330582495E-15 
1.337B275230445E-13 
8. 5368721 046333E-14 
4.9751243781092E-01 



4.6o402£1501102E-14 
"9. 642367668B4i'5i~!^ 
1.349331503!OA9E-:i 
-1.290%9789533:E-:i 
-1. 402549552901 lE-1 4 
1. 9056404665781 E -14 
-1.2567799296804E-14 
-4.0:4i0S6343356E-I4 
-4.2459852155577S-14 
-8.8229045474678E-14 
3.3101567329672E-14 
4.4.397262181506E-I5 
2. 4737510482256E-14 
-2.62462450891512-14 
-6.0964496532426E-15 
-6. 1331586904634E-14 
6.5605392492S65E-14 
-1.3124326477859E-13 
-9.81771451900482-14 



TIME = 27.56250 MINUTES 

NEQ = 200 
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Pt^oara'fl ListiriC 



ILAR6E 

sNoaoflTCfias 

PROGRflM SOLDP 

IMPLICIT DOUBLE PRECISION (fl-H,0-Z) 

INTE6ER*4 ITIMEl, ITIME2, CENTI 
DIICNSIGN ft <40000), B(EOO), J0BNflME<2) 

CHftRflCTER*12 IFN 
REflL*4 TIME 
0PEN(5,FIL£=»CGN’) 

0PEN(6,FILE=’C0N’) 

WRITE(6,*) ’ ******* enter fl JOBNflME (3 CHARACTERS MAX) 
READ (5, 10) JOBNAWE 
10 FORMAT (2A4) 

MRITE(6,*) ’ ******* ENTER THE NUMBER OF EQUATIONS 

HRITEIS,*) ’ (MUST BE 200 OR LESS IN THIS VERSION) ’ 

READ (5,*) NEQ 

RHS=100.0DO 

IEXT=’DAT’ 

CALL FNAME(JOBNAME,IEXT,IFN) 

0P£N(2, FILE=IFN, STATUS=’ NEW’ , FORM=’ FCRMATTEIt’ ) 

NEQM1=NEQ-1 

DO 100 I=1,NEQK1 

B(I)=RHS 

II=(I-1)^^NEQ+I 

A(II)=NEQ 

IP1=I+1 

DO 100 J=IP1,NEQ 

IJ=(J-1)*NEQ+I 

JI=(I-1)*N£Q+J 

A(IJ)=N£Q-J+I 

A(JI)=A(IJ) 

100 CONTINUE 
B(NEQ)=RHS 
NEQNEQ=NEQ*N£0 
A(NEQNEQ)=NEQ 
CALL TICK£R( ITIMEl) 

CALL ELU(A,NEQ) 

CALL SLVB(A,B,MEQ) 

CALL TICKER(ITIME2) 

CENTI = ITIME2 - I’lMEl 
TIME = FLOAT (CENTI) / SOOO. 

WRITE (2, 998) IFN 
WRIT£(6,998) IFN 
998 FORMAT (T28,’ FOR A12,/, 

* T28, ’The Solution :s’,/,:S8,:5(lK=)) 

DO 200 1=1, NEQ, 5 
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JJ=I 

JJP=JJ+2 

IF(JJP.6T..'I£Q) JJP = NEQ 

WRITE(2,’ (1P3E22. 13)’) (B(J), J=JJ, JJ-) 

WRITE16, ’ (1P3E22. 13)’ ) (B(K),K=JJ, JJP) 

200 CONTINUE 

WRITEI6,999) TIME 
WRITE (2, 999) TIME 

999 F0RMflT(/,5X,’ TIME = ’ ,F12.5, ’ MINUTES’,//) 
WRITE (2,*) ’ NEQ =’,NEO 

WRITE(6,*) ’ NEQ =’,NEQ 

aOSE(2) 

STOP 

END 



SUBROUTINE ELU(fl,N) 
C 



C 

C 

C 

C 

C 

C 

C 

C 



THIS SUBROUTINE DECOMPOSES MATRIX fl INTO A LOWER UNIT 
TRIAN6ULAR AND AN UPPER TRIANGULAR MATRIX. THE ORIGINAL MATRIX 
A IS REPLACED BY THE TWO TRIANGULAR MATRICES. THE DIAGONAL OF 
THE LOWER MATRIX IS NOT NEEDED SINCE IT IS A UNIT TRIANGULAR 
MATRIX. THIS IS A MODIFICATION OF A SUBROUTINE WRITTEN IN 
1965 . 



C 

C 

c- 

C 



COPYRIGHT (C) BY GILLES CANTIN 
MONTEREY, CALIFORNIA, 24 JULY 1984. 



♦ 

♦ 

♦ 

* 



IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
DIMENSION Ad) 

NM1=N-1 

DO 100 K=1,NM1 
KP1=K+1 



KK=(K-1)*N+K 

AKK=A(KK) 

DO 100 I=KP1,N 
IK=IK-1)*N+I 
G=-A(IK)/AKK 
A(IK)=G 

DO 100 J=KP1,N 
IJ=(J-1)*N+I 



KJ=(J-i)*N+K 



100 Anj)=A(IJ)+6*A(KJ) 
RETURN 
END 
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SUBROUTINE SLVB(ft,B,N) 



c 
c 
c 
c 
c 
c 



c 

c 

c 

c 



THIS SUBROUTINE DOES fl BACKWARD SUBSTITUTION FOLLOWED BY A 
FORWARD SUSBSTITUTION OF B INTO A, WHERE A H?.S ALREADY BEEN 
DECOMPOSED BY A CALL TO ELU. THE VECTOR B IS DEST.rlYID AND 
REPLACED BY THE ANSWERS TO THE SYSTEM OF LINEAR EC'JATIONS. 



COPYRIGHT (C) BY GILLES CANTIN 
MONTEREY, CALIFORNIA, 24 JULY 1S84. 



♦ 

« 

♦ 

« 

*• 

* 

t*- 

* 

* 

♦ 

♦ 



IMPLICIT DOUBLE PRECISION (A-H,0-Z) 
DIMENSION A(1),B<1) 

NM1=N-1 

NPl=N+l 

DO 100 K=l,NMl 

KPl=K+l 

BK=B(K) 

DO 100 I=KP1,N 
IK=(K-1)*N+I 
100 B(I)=B(I)+A(IK)*BK 
NN=N*N 

B(N)=B(N)/A(NN) 

DO 300 K=2,N 
I=NP1-K 
J1=I+1 
BI=B(I) 

DO 200 J=J1,N 
IJ=(J-1)*N+I 
200 BI=BI-A(IJ)*B(J) 

B(I)=BI 
II=(I-1)*N+I 
300 B(I)=B(I)/A(II) 

RETURN 

END 
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SUBROLiTINE FNfli*!£(JO£:\'fi>'£, EXT, FN) 



C 



C ♦ 

C THIS SUBROUTINE TfiKES fiN fiLFHfiNUNERIC JOENfi?:£ CCNTflIO IN » 

C THE ARRAY J0BNA«E(2) AND CONCATENATES IT WI7-: THE EXTENSION it 

C NAME CONTAINED IN EXT AND RETURNS THE CONPCSED ^IL£ NITH » 
C A PERIOD SEPARATING THE FILE NAME AND FILE EXTENSION. 7-:£ « 

C COMPLETE NAME IS RETURNED LEFT JUSTIFIED IN THE ARRAY FN(3> » 

C THIS VERSION TAKES ADVANTAGE OF FORTRAN-77 AND SHOULD BE *• 

C MACHINE INDEPENDENT. IT HAS WORKED ON THE VAX/780 THE 
C APOLLO MODEL DN/300, AND THE IBM PC. * 

C ♦ 

C ♦ 

C COPYRIGHT (C) BY GILLES CANTIN ♦ 

C MONTEREY, CALIFORNIA, 24 JULY 1984. ♦ 

C ♦ 

C 

DIMENSION JOBNAME(2) , FN (3) , JJOB (2) , FFN (3) 

CHARACTER*! JOBCH (8) , FNCH ( 12) , EXTCH (4) , BLANK, PERIOD 
EQUIVALENCE (JJOB(l) , JOBCH(l) ), IEEXT,EXTCHI1)), (FFNa),FNCH(D) 
DATA BLANK/’ ’/, PERIOD/’ .’ / 

DO 10 1=1,4 
10 EXTCH(I)=BLANK 
DO 20 1=1,8 
20 JOBCH(I)=BLANK 
DO 30 1=1, 12 
30 FNCH(I)=BLANK 
DO 40 1=1,2 

40 JJOBa)=JOBNAME(I) 

EEXT=EXT 

EXTCH(4)=EXTCH<3) 

EXTCH(3)=EXTCH(2) 

EXTCH(2)=EXTCH(1) 

EXTCH(1)=PERI0D 
DO 50 1=1,8 

IF ( JOBCH ( I ).N£. BLANK) II=I 
50 FNCH(I)=JOBCH(I) 

IL=II+1 
IH=IL+3 
DO 60 I=IL, IH 
III=I-II 

60 FNCH(I)=EXTCHaiI) 

DO 70 1=1,3 
70 FN(I)=FFNa) 

RETURN 

END 
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SUBROUTINE TICKER (ITIME) 



; THIS IS W 8088 ASSEMBLY LANGUA3E RD'jTIN'E 

; ADAPTED FROM A PROGRAM WRITTEN BY W. CLAP? 0- T^E 

; BOSTON COMPUTER SOCIETY, ONE CENTER PLAZA, BOSTON, 

; MASS 02108. THE ORIGINAL VERSION wAS FOR MICROSCFT 
; FORTRAN V3.1, AND HAS PUBLISHED IN BYTE /AGAZINE, 

; FEB 1984. THIS VERSION HAS BEEN MODIFIED TD 
; CONFORM TO THE CALLING CONVENTION FOR MICRCSOFT 

; FORTRAN V3.2. 

• 

; AS IN THE VERSION WRITTEN BY aAFF, THIS VERSION 
; EXTRACTS THE BCD TIME FROM DOS, AND RETURNS THE 

; RESULT TO THE CALLING PROGRAM IN CENTISECONDS. 

• 

i 

DATA SEGMENT PUBLIC ’DATA' 

DATA ENDS 
DGROUP GROUP DATA 



CODE 

PUBLIC 

TICKER 



SEGMENT ’CODE’ 

ASSUME CS:C0DE,DS:D6R0UP,SS;DGR0UP 
TICKER 

PROC FAR 

PUSH BP 

MOV BP,SP 

PUSH AX 

PUSH BX 

PUSH CX 

PUSH DX 

MOV AH, 02CH 

INT 021H 

XCH6 CX,DX 

MOV AL, CH 

MOV BL, 100 

MUL BL 

MOV CH, 0 

ADD CX, AX 

MOV AL, DH 

MOV BL, 60 

MUL BL 

MOV DH, 0 

ADD AX, DX 

MOV DX, 0 

MOV BX, 6000 

MUL BX 

ADD CX, AX 

ADC DX, 0 

LES BX, DWORD PTR CBP+6] 

MOV ES:CBX3,CX 

MOV ES;CBX+23,DX 
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POP 


DX 


POP 


CX 


POP 


BX 


POP 


flX 


POP 


BP 


RET 


4 



TICKER ENDP 
CODE ENDS 
END 
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APPENDIX C 



FUNCTIONAL BLOCK DIAGPJUyiS 
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OVER-ALL FUNCTIONAL BLOCK DIAGRAM 




FUNCTIONAL BLOCK COND 
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FUNCTIONAL BLOCK COOR 
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FUNCTIONAL BLOCK DLPN 
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FUNCTIONAL BLOCK PREL 
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FUNCTIONAL BLOCK PRND 
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FUNCTIONAL • BLOCK ELEM 





FUNCTIONAL BLOCK SOLC 
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FUNCTIONAL BLOCK SOLE 



82 
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FUNCTIONAL BLOCK LINM 




CONSTRUCT GLOBAL MATRICES 




vy 
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FUNCTION COMMON TO CONSTRUCTION OF GLOBAL MATRICES 



SOLUTION ( PRINT SOLUTION 
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FUNCTIONS COMMON TO THE SOLUTION AND PRINTING THE SOLUTION 



(qM) 
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FUNCTIONAL BLOCK LIND 



CONSTRUCT GU)BAL MATRICES ON DISK 
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FUNCTIONS COMMON TO CONSTRUCTION OF GLOBAL MATRICES 

ON DISK 





SOLUTION ( PRINT SOLUTION 
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FUNCTIONAL BLOCK NLIN 



NONLINEAR ASSEMBLY AND SOLUTION 
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FUNCTIONS FOR NONUNEAR ASSEMBLY, SOLUTION, AND PRINTING 
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FUNCTIONAL BLOCK TEMP 




FUNCTIONS FOR UNSTEADY ASSEMBLY, SOLUTION AND PRINTING 
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FUNCTIONAL BLOCK VALP 






ASSEMBLY FUNCTIONS FOR EIGEN VALUE PROBLEM 
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APPENDIX D 



SAMPLE PROBLEMS AND SOLUTIONS 

Conduction heat transfer problem for comparison with 
the results of Dhatt and Touzot 



concrete plate 




d = d^ = d^ = 1.4 w/(m °C) 

X y 

C = 2.03 X 10^ J/(m^ °C) 

constant heat flux on inside = 1 

The distributed boundary condition on the inner circle 

is replaced by consistent concentrated nodal values: 

nodes 1,17= 0.6545 
nodes 6, 14 = 0.2618 
node 9 = 0.1309 
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The consistent nodal values are arrived at as follows: 



0.6545 = ^ 

0.2618 = 4 - 
6 

0.1309 = 4 ^ 



In the analysis, the double symmetry allows only one quarter 
of the plate to be considered. 
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F.E.M.3. 

G.TOUZOT, G.DHflTT 
MODIFIED BY 

REhE E. RUESCH 



IMflGE OF DATA CARDS 



COLUMN NUMBER 

CARD 1 2 5 A 5 6 7 6 

NUMBER 123A5678901234567890123A567890123A567890i23A5678G01£3A567890123A567B90123A567390 



1 COMT 

2 HEAT TRANSFER IN A PERFORATED SQUARE PLATE 

3 SAMPLE PROBLEM TO COMPARE RESULTS OF MEF ON THE IBM PC 

A WITH THOSE OF THE AUTHORS, DHAH AND TOUZOT 

5 

8 COOR 



7 


21 


1 


2 


0.5 


0.5 








8 


1 


0.0 




1.0 


0.0 


5 0.0 


3.0 


0.0 


9 


6 


0.3827 




0.9239 


0.0 


8 1.5 


3.0 


0.0 


10 


9 


0.707 




0.707 


0.0 


13 3.0 


3.0 


0.0 


11 


lA 


0.9239 




0.3827 


0.0 


16 3.0 


1.5 


0.0 


12 


17 


1.0 




0.0 


0.0 


21 3.0 


0.0 


0.0 


13 


0 
















lA 


COND 
















15 


1 
















16 


13 


16 


21 












17 


0 
















18 


PREl 
















19 


1 


A 














20 


1 


l.A 




l.A 


l.A 


2.03E6 






21 


0 
















22 


ELEM 
















23 


A 


8 


1 












2A 


1 


2 


8 


1 1 


1 1 


6 9 


10 11 


7 3 


25 


3 


2 


8 


1 1 


1 3 


7 11 


12 13 


8 5 



26 0 

27 SOLC 3 

28 1 0.065A5 

29 1 17 

30 2 0.1309 

31 9 
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cn O.J 



3 0.2618 
6 14 

0 

LINH 

1 

STOP 



12345678901234567890123456789012345678901234567890123456789012345678801234567850 
1 2 3 4 5 6 7 8 

COLUMN NUMBER 



END OF DATA 



COMMENTS 



HEAT TRANSFER IN A PERFORATED SQUARE PLATE 
SAMPLE PROBLEM TO COMPARE RESULTS OF MEF ON THE IBM PC 
WITH THOSE OF THE AUTHORS, DHAH AND TOUZOT 



INPUT OF NODES (M= 0) 



MAX. NUMBER OF NODES 
MAX. NUMBER OF D.O.F. PER NODE 
DIMENSIONS OF THE PROBLEM 
COORDINATE SCALE FACTORS 
WORKSPACE IN REAL WORDS 



INPUT OF BOUNDARY CONDITIONS (M= 0) 



BOUNDARY CONDITIONS CARDS 

»}>> 1000000000 .OOOOOE+00 .OOOOOE+00 .OOOOOE+00 
)>}}} 13 16 21 0 0 0 0 
»}} >0000000000 .OOOOOE+00 .OOOOOE+OO .OOOOOE+00 



TOTAL NUMBER OF NODES 
TOTAL NUMBER OF D.O.F. 

NUMBER OF EQUATIONS TO BE SOLVED 
NUMBER OF PRESCRIBED NON ZERO D.O.F. 
NUMBER OF PRESCRIBED ZERO D.O.F. 



.OOOOOE+OO . 


OOOOOE+OO 


. wOOOE+OO 


. 000(i(!E+00 


0 0 0 


0 0 


0 0 


0 0 


. OOOOOE+OO . 


OOOOOE+OO 


.OOOOOE+OO 


. OOOOOE+OO 


(NNT) = 


21 






(NDLT)= 


21 






(NEQ)= 


18 






(NCLNZ)= 


0 






(NaZ)= 


3 







. (NNT)= 21* 
(NDLN)= 1 

(NDIM)= 2 

(FAC)= .50000E+00 
(NVA)= 20000 



50000E+00 .lOOOOE+01 



32 

33 

34 

35 

36 

37 



CARO 

NUMBER 
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TOTAL NUMBER OF PRESCRIBED D.O.F. (NCLT>= 3 



NODAL COORDINATES ARRAY 



NO D.L 



EQUATION NUMBER (N£0) 



1 1 .OOOOOE+00 .50000E+00 

2 1 .OOOOOE+00 .75000E+00 

3 1 .OOOOOE+00 .lOOOOE+01 

4 1 .OOOOOE+00 .12500E+01 

5 1 .OOOOOE+00 .15000E+01 

6 1 .19135E+00 .46195E+00 

7 1 .47068E+00 .98097E+00 

8 1 .75000E+00 .15000E+01 

9 1 .35350E+00 .35350E+00 

10 1 .64013E+00 .64013E+00 

11 1 .92675E+00 .92675E+00 

12 1 .12134E+01 .12134E+01 

13 1 .15000E+01 .15000E+01 

14 1 .46195E+00 . 19135E+00 

15 1 .98097E+00 .47068E+00 

16 1 .15000E+01 .75000E+00 

17 1 .50000E+00 .OOOOOE+00 

18 1 .75000E+00 .OOOOOE+00 

19 1 .lOOOOE+01 .OOOOOE+00 

20 1 .12500E+01 .OOOOOE+00 

21 1 .15000E+01 .OOOOOE+00 



.OOOOOE+00 


1 


.OOOOOE+00 


2 


.OOOOOE+00 


3 


. OOOOOE+00 


4 


.OOOOOE+00 


5 


. OOOOOE+00 


6 


.OOOOCE+00 


7 


.OOOOOE+00 


8 


.OOOOOE+00 


9 


.OOOOOE+OO 


10 


.OOOOOE+00 


11 


.OOOOOE+OO 


12 


.OOOOOE+OO 


-1 


.000006+00 


13 


.OOOOOE+OO 


14 


.OOOOOE+OO 


-2 


.OOOOOE+OO 


15 


.OOOOOE+OO 


16 


.OOOOOE+OO 


17 


.OOOOOE+OO 


18 


.OOOOOE+OO 


-3 



INPUT OF ELEMENT PROPERTIES (M= 0) 



NUMBER OF GROUPS OF PROPERTIES (NSPE)= 1 

NUMBER OF PROPERTIES PER GROUP (NPRE)= 4 



CARDS OF aEMENT PROPERTIES 

>>>>> 1 .14000E+01 .14000E+01 .14000E+01 .20300E+07 

»»> 0 .OOOOOE+00 . 0000(€+00 .OOOOOE+00 .OOOOOE+00 



INPUT OF aEMENTS (M= 0) 



MAX. NUMBER OF ELEMENTS (NELT)= 
MAX. NUMBER OF NODES PER aEMENT (NNEL)= 
DEFAULT aEMENT TYPE (NTP£)= 
NUMBER OF GROUPS OF aEMENTS (NSRE)= 
INDEX FOR NON SYMMETRIC PROBLEM (NSYM)= 
INDEX FOR IDENTICAL ELEMENTS (NIDENT)= 



4 

8 

1 

1 

0 

0 
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ELEMENT: 1 TYPE: 1 N.P. : 


8 D.O.F. : 


8 N. PROP: 


0 


EL, PROP: 


4 GROUP: 


1 


CONNECTIVITY (NE) 1 


6 


9 


10 


11 


7 


3 


2 






ELEMENT: 2 TYPE: 1 N.P. : 


8 D. 0. F. : 


8 N. PROP: 


0 


Zi., PROP: 


4 GROUP: 


* 

1 


CONNECTIVITY (NE) 9 


14 


17 


18 


19 


15 


11 10 






ELEMENT: 3 TYPE: 1 N.P. : 


8 D. 0. F. : 


8 N. PROP: 


0 


EL. PROP: 


4 GROUP: 


1 


CONNECTIVITY (NE) 3 


7 


11 


12 


13 


8 


5 


4 






ELEMENT: 4 TYPE: 1 N.P. : 


8 D. 0. F. : 


8 N. PROP: 


0 


EL. PROP: 


4 GROUP: 


i 

i 


CONNECTIVITY (NE) 11 


15 


19 


20 


21 


16 


13 


12 







f€flN B(M) HEISHT= 5.3 MAXI 10 

LENGTH OF fl TRIANGLE IN KG (NKG)= 95 

NUMBER OF INTEGRATION POINTS (NPG)= 36 



INPUT OF CONCENTRADED LOADS (K= 3) 



TABLE FG GOES FROM VA( 111) TO VP( 128) 



CARDS OF NODAL LOADS 



))))) 

))))) 


1 

1 


.65450E-01 
17 0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


))))) 

))))) 


2 

9 


.13090E+00 
0 0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


))))) 

))))) 


3 

6 


.261806+00 
14 0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


))))) 


0 


.OOOOOE+00 





























00 .OOOOOE+00 



TOTAL LOAD VECTOR 

.65450E-01 .OOOOOE+00 .OOOOOE+00 .OOOOOE+00 .OOOOOE+00 .26180E+00 .OOOOOE+00 .CK)0Ci0E+0O .1309 

.OOOOOE+00 .OOOOOE+00 .26180E+00 .OOOOOE+00 .65450E-01 .OOOOOE+00 .OOOOOE+00 .OOOOOE+00 



ASSEMBLING AND LINEAR SOLUTION (M= 0) 



INDEX FOR RESIDUAL COMPUTATION (NRES)= 1 
ENERGY (ENERG)= .42653E+00 

ABSOLUTE VALUE OF MINIMUM PIVOT = .97A69E+00 EQUATION: 5 

ALGEBRAIC VALUE= .97A69E+00 EQUATION: 5 

DETERMINANT = . 14103E+09 * \0 ** 0 



MAX. RESIDUAL VALUE= .26262E-15 EQUATION 6 



100 



SOLUTION 



NODES 



DEGREES 0? FREEDO:*! (♦ = PRESCRIBED) 



1 


.OOOOOE+00 


.50000E+00 


.OOOOOE+OO 


. 5752CE+00 


2 


.OOOOOE+00 


. 75000E+00 


.OOOOOE+OO 


.44681E+00 


3 


.OOOOOE+00 


. 100(X)E+01 


.OOOOOE+OO 


.37137E+00 


4 


.OOOOOE+00 


. 12500E+01 


.OOOOOE+OO 


. 33526E+00 


5 


.OOOOOE+00 


. 15000E+01 


.OOOOOE+OO 


.32317E+00 


G 


. 19135E+00 


.46195E+00 


.OOOOOE+OO 


. 56684E+00 


7 


. 47068E+00 


.98097E+00 


.OOOOOE+OO 


.31756E+00 


8 


.75000E+00 


. 15000E+01 


.OOOOOE+OO 


. 21866E+00 


9 


.35350E+00 


.353502+00 


.OOOOOE+OO 


. 53687E+00 


10 


.64013E+00 


.64013E+00 


. OOOOOE+CKi 


. 33300E+00 


11 


.92675E+00 


.92675E+00 


. OOOOOE+CK) 


. 19818E+00 


12 


. 12134E+01 


. 12134E+01 


.OOOOOE+OO 


.93103E-C1 


13 


. 15000E+01 


. 15000E+01 


.OOOOOE+OO 


.OOOOOE+CO * 


14 


.46195E+00 


.19135E+00 


. OOOOOE+OO 


. 52269E+00 


15 


.98097E+00 


. 47068E+00 


.OOOOOE+OO 


.214212+00 


16 


.15000E+01 


.75000E+00 


.OOOOOE+<X) 


.OOOOOE+OO * 


17 


.50000E+00 


.OOOOOE+00 


.OOOOOE+OO 


.50587E+00 


18 


.75000E+00 


. OOOOOE+OO 


.OOOOOE+OO 


.35749E+00 


19 


. lOOOOE+01 


.OOOOOE+00 


.OOOOOE+OO 


.22597E+00 


20 


. 12500E+01 


.OOOOOE+OO 


. OOOOOE+OO 


. lOSaiE+00 


21 


. 15000E+01 


.OOOOOE+OO 


. OOOOOE+OO 


.OOOOOE+OO * 



GRADIENTS IN ELEMENT : 1 



P.G. : 1 COORDINATES 
GRADIENTS 

P.G.,: 2 COORDINATES 
GRADIENTS 

P.G. : 3 COORDINATES 
GRADIENTS 

P.G. ; 4 COORDINATES 
GRADIENTS 

P.G. ; 5 COORDINATES 
GRADIENTS 

P.G. ; 6 COORDINATES 
GRADIENTS 

P.G. : 7 COORDINATES 
GRADIENTS 

P.G. : 8 COORDINATES 
GRADIENTS 

P.G. : 9 COORDINATES 
GRADIENTS 



.52632E-01 .55406E+00 
-. 11372E+00 -.aiOGSE-rOO 
.76523E-01 .748I8E+00 
-.12315E+00 -.57153E+00 
.10041E+00 .94230E+00 
-.11487E+00 -.33465E+00 
. 22283E+00 . 52044t+00 
-.41886E+00 -.70605E+00 
.33101E+00 .72I46E+00 

- 33351E+00 -.49289E+00 
.43919E+00 .92248E+0O 

-.28656E+00 -.259072+00 
.37650E+00 .44697E+00 

- 65190E+00 -.47047E+00 
.57236E+00 .66307E+00 

-.51763E+00 -.32390E+00 
.76823E+00 .87916E+00 
-.44680E+00 -.11983E+00 
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GRADIENTS IN ELEMENT : 



P.G. : 1 COORDINATES 
GRADIENTS 

P.G. : 2 COORDINATES 
GRADIENTS 

P.G. 3 COORDINATES 
GRADIENTS 

P.G. : 4 COORDINATES 
GRADIENTS 

P.G. : 5 COORDINATES 
GRADIENTS 

P.G. : 6 COORDINATES 
GRADIENTS 

P.G. : 7 COORDINATES 
GRADIENTS 

P.G. ; 8 COORDINATES 
GRADIENTS 

P.G. ; 9 COORDINATES 
GRADIENTS 



GRADIENTS IN ELEMENT : 3 



P.G. : 1 COORDINATES 
GRADIENTS 

P.G. : 2 COORDINATES 
GRADIENTS 

P.G. : 3 COORDINATES 
GRADIENTS 

P.G. : 4 COORDINATES 
GRADIENTS 

P.G. : 5 COORDINATES 
GRADIENTS 

P.G. : 6 COORDINATES 
GRADIENTS 

P.G. : 7 COORDINATES 
GRADIENTS 

P.G. : 8 COORDINATES 
GRADIENTS 

P.G. : 9 COORDINATES 
GRADIENTS 



.44697E+00 .37650E+00 
-.71704E+00 -.409602+00 
.66307E+0b .57236E+00 
-.60362E+00 -.2562OE+0O 
.879162+00 .76823E+00 
-.45595E+00 -. 14059E+00 
.52044E+00 .22283E+00 
-.8B575E+00 - 24160E+00 
.72146E+00 .331012+00 
-.73534E+00 -.179792+00 
.922482+00 .43919E+00 
-.590602+00 -.107442+00 
.554062+00 .526322-01 
-.8%17E+00 -.172412-01 
.748182+00 .765232-01 
-.789592+00 -.758792-01 
.942302+00 .100412+00 
-.692552+00 -.569862-01 



.114322+00 .105532+01 
-.110512+00 -.254542+00 
.138212+00 .124942+01 
-.11648E+00 -.14037E+00 
.162102+00 .144352+01 
-.131202+00 -.251232-01 
.502162+00 .103952+01 
-.277112+00 -.20122E+00 
.610342+00 .124052+01 
-.280592+00 -.115782+00 
.718522+00 .144152+01 
-.295732+00 -.240602-01 
.882222+00 .10049E+01 
-.438172+00 -.869222-01 
.107812+01 .122102+01 
-.44335E+00 -.28634E-01 
.127402+01 .143712+01 
-.460202+00 .402182-01 
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SRflDIENTS IN ELEMENT : 4 



P.G. : 1 COORDINATES 
GRADIENTS 

P.G. : 2 COORDINATES 
GRADIENTS 

P.G. : 3 COORDINATES 
GRADIENTS 

P.G. ; A COORDINATES 
GRADIENTS 

P.G. ! 5 COORDINATES 
GRADIENTS 

P.G. ; 6 COORDINATES 
GRADIENTS 

P.G. ; 7 COORDINATES 
GRADIENTS 

P.G. : 8 COORDINATES 
GRADIENTS 

P.G. : 9 COORDINATES 
GRADIENTS 



.100A9E+01 .88222E+00 
-.A6122E+00 -.99AA2E-01 
.12210E+01 .107B1E+01 
-.A6380E+00 -.A7956E-0i 
. 1A371E+01 . 127A0E+01 
-A5AfalE+00 -.9A565E-02 
. 10395E+01 . 5021GE+00 
- 576i5E+00 -.7A187E-01 
.12A05E+01 .6103AE+00 
-.55835E+00 -.36136E-01 
.1AA15E+01 .71B52E+00 
-.53562E+00 -.723A1E-02 
.10553E+01 .11A32E+00 
-.65031E+00 -.38270E-01 
.12A9AE+01 .13821E+00 
-.62235E+00 -.2009(€-01 
. 1AA35E+01 . 16210E+00 
-.59A09E+00 -.A29A1E-C2 



EQUILIBRIUM RESIDUALS AND REACTIONS 



NODES X Y 



DEGREES OF FREEDOM I* = PRESCRIBED) 



1 .OOOOOE+00 .50000E+00 

2 .OOOOOE+00 .75000E+00 

3 .OOOOOE+00 .lOOOOE+01 
A .OOOOOE+00 .12500E+01 

5 .OOOOOE+00 .15000E+01 

6 .19135E+00 .A6195E+00 

7 .A7068E+00 .98097E+00 

8 .75000E+00 .i5000E+01 

9 .35350E+00 .35350E+00 

10 .6A013E+00 .6A013E+00 

11 .92675E+00 .92675E+00 

12 .1213AE+01 .1213AE+01 

13 .15000E+01 .15000E+01 
lA .A6195E+00 .19135E+00 



OOOOOE+00 


.OOOOOE+00 


OOOOOt+00 


-. 10399E-15 


OOOOOE+00 


.27756E-16 


OOOOOE+00 


-.777A3E-16 


OOOOOE+00 


. 13109E-15 


OOOOOE+00 


-.27756E-15 


OOOOOE+00 


-.11102E-15 


OOOOOE+00 


-.63315E-16 


OOOOOE+00 


.37A70E-15 


OOOOOE+00 


-.A02A6E-15 


OOOOOE+00 


.30531E-15 


OOOOOE+00 


. 19A29E-15 


OOOOOE+00 


-. 102B8E+00 * 


OOOOOE+00 


.11102E-15 
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15 .98097E+00 .47068E+00 

16 .15000E+01 .75000E+00 

17 .50000E+00 .OOOOOE+00 

18 .75000E+00 .OOOOOE+00 

19 .lOOOOE+01 .OOOOOE+00 

20 .12500E+01 .OOOOOE+00 

21 .15000E+01 .OOOOOE+00 



.OOOOOE+00 


.I1102E-15 


.OOOOOE+00 


-.52531E+00 ♦ 


.OOOOOE+00 


I3878E-16 


.OOOOOE+00 


-.25562E-15 


.OOOOOE+00 


.69389E-16 


.OOOOOE+00 


. 10714E-15 


.OOOOOE+00 


I5722E+00 ♦ 



END OF PROBLEM, 314 UTILIZED REAL WORDS OVER 20000 
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0.5m 



Concrete elliptical arch in plane stress, for 
comparison with the results of Dhatt and Touzot. 

EIGEN VALUE PROBLEM 




The loads consist of the distributed dead 
weight, and the concentrated force of 10 
tons at node 3. 
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IMAGE 



F DATA CAfiDS 



r.£. It. 3. 

G.TOUZOT, G.DHATT 
MODIFIED BY 

REHE £. RUESCH 



CARD 

NUMBER 



1 

2 

3 

A 

5 

6 



CARD 

NUMBER 



1 



COLUMN 

3 



NUMBER 
A 5 



123A567890123A567890123A567890123A5678g0123A567390123A567890123A5fa7690123A567890 

COMT 

ELASTIC ANALYSIS OF AN ELLIPTIC HALF BRIDGE ARCH IN PLANE STRESS 
SAMPLE PROBLEM TO COMPARE THE RESULTS OF MEF ON THE IBM PC 
WITH THOSE OF THE AUTHORS, DHAH AND TOuZOT 

COOR 



7 


26 


2 2 




8 


3 


0.00 


3.50 


9 


5 


0.75 


3.50 


10 


2 


0.00 


3.25 


11- 


7 


< 1.50 


3.20 


12 


12 


3.50 


2.97 


13 


17 


5.00 


2.58 


lA 


19 


5.75 


1.70 


15 


1 


0.00 


3.00 


16 


A 


0.75 


2.98 


17 


6 


1.50 


2.90 


18 


9 


2.50 


2.73 


19 


11 


3.50 


2.AA 


20 


lA 


A. 25 


2. 12 


21 


16 


5.00 


1.66 


22 


2A 


5.75 


0.86 


23 


26 


6.00 


0.00 


2A 


27 


6.25 


0.00 


25 


28 


6.50 


0.00 


26 


25 


6.50 


0.87 


27 


21 


6.50 


1. 75 



23 

20 



6.50 

5.75 



3.50 

3.50 



123A567890123A567890123A567890123A567890123A567890123A567890123A567890122A567830 
1 2 3 A 5 6 7 6 

COLUMN NUMBER 
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COLUMN NUMBER 

CARD 1234557S 

NUMBER 12345678901234567890123456783012345678901234567890123456789012345678901234567390 



28 


22 


6.50 


29 


-1 




30 


COND 




31 


11 




32 


26 


27 28 


33 


10 




34 


1 


2 3 


35 


0000000000 


36 


PRa 




37 


1 


4 


38 


1 


2. 0E6 


39 


-1 




40 


ELEM 




41 


5 


8 2 


42 


1 


4 5 


43 


5 


1 0 


44 


-1 




45 


SOLC 




46 


1 


0.00 


47 


3 




48 


-1 




49 


SOLR 




50 


VALP 




51 


3 


20 0.001 


52 


STOP 





2.62 

25 21 22 23 

0.3 0.0 2.3 

1 0 

0 10 14 

0 1 0 26 27 

- 10.00 

0.0 5 0 



6 7 8 5 3 2 

28 25 21 19 16 24 



12 l.D-12 



CARD 12345678901234567890123456789012345678901234567890123456789012345678901234567830 

NUMBER 1 2 3 4 5 6 7 8 

COLUMN NUMBER 



END OF DATA 



COMMENTS 



aASTIC ANALYSIS OF AN ELLIPTIC HALF BRIDGE ARCH IN PLANE STRESS 
SAMPLE PROBLEM TO COMPARE THE RESULTS OF MEF ON THE IBM PC 
WITH THOSE OF THE AUTHORS, DHAH AND TOUZOT 



INPUT OF NODES (M= 0) 
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WX. NUMBER OF NODES 
MAX. NUMBER OF D.O.F. PER NODE 
DIMENSIONS CF THE PROBLEM 
COORDINATE SCALE FACTORS 
UORKSPACE IN REAL WORDS 



INPUT OF BOUNDARY CONDITIONS (M= 0) 



(NNT)= 26 
(NDLN)= 2 
(NDIM)= 2 

(FAC)= .lOOOOE+01 .lOOOOE+01 . lOOOOE+Ol 
(NVA)= 20000 



BOUNDARY CONDITIONS CARDS 



))))) 1100000000 


.OOOOOE+00 


.OOOOOE+00 .OOOOOE+00 


. OOOOOE+00 . OOOOOE+00 


.OOOOOE+00 


. OOCiOOE+00 


))))) 


26 


27 


28 0 0 0 0 


0 0 0 0 0 


0 


0 


0 0 


))))) 1000000000 


.OOOOOE+00 


.OOOOOE+00 .OOOOOE+00 


. OOOOOE+00 . 0(K:iOOE+OO 


. OOOOOE+OO 


. OOOOOE+OO 


))))) 


1 


2 


3 25 21 22 23 


0 0 0 0 0 


0 


0 


0 0 


)))) >0000000000 


.OOOOOE+00 


.OOOOOE+00 .OOOOOE+00 


. OOOOOE+00 . OOOOOE+00 


. OOOOOE+OO 


. OOOOOE+OO 



TOTAL NUMBER OF NODES 


(NNT)= 


26 


TOTAL NUMBER OF D.O.F. 


(NDLT)= 


56 


NUMBER OF EQUATIONS TO BE SOLVED 


(NEQ)= 


43 


NUMBER OF PRESCRIBED NON ZERO D.O.F. 


(NCLNZ)= 


0 


NUMBER OF PRESCRIBED ZERO D.O.F. 


(NaZ)= 


13 


TOTAL NUMBER OF PRESCRIBED D.O.F. 


(NaT) = 


13 



NODAL COORDINATES- ARRAY 

NO D.L. X Y Z EQUATION NUMBER (NEQ) 



1 


2 .OOOOOE+OO 


.30000E+01 


.OOOOOE+OO 


-7 


1 


2 


2 .OOOOOE+OO 


.32500E+01 


.OOOOOE+OO 


-8 


0 

u 


3 


2 .OOOOOE+OO 


.35000E+01 


.OOOOOE+OO 


-9 


3 


4 


2 .75000E+00 


.29800E+01 


.OOOOOE+OO 


4 


5 


5 


2 .75000E+00 


.35000E+01 


.OOOOOE+OO 


6 


7 


6 


2 .15000E+01 


.29000E+01 


.OOOOOE+OO 


8 


9 


7 


2 .15000E+01 


.32000E+01 


.OOOOOE+OO 


10 


11 


8 


2 .16250E+01 


.35000E+01 


.OOOOOE+OO 


12 


13 


9 


2 .25000E+01 


.27300E+01 


.OOOOOE+OO 


14 


15 


10 


2 .24167E+01 


.35000E+01 


.OOOOOE+OO 


16 


17 


11 


2 .35000E+01 


.24400E+01 


.OOOOOE+OO 


16 


19 


12 


2 .35000E+01 


.29700E+01 


.OOOOOE+OO 


20 


21 


13 


2 .32500E+01 


.35000E+01 


.OOOOOE+OO 


22 


23 


14 


2 .42500E+01 


.21200E+01 


.OOOOOE+OO 


24 


25 


15 


2 .40833E+01 


.35000E+01 


.OOOOOE+OO 


26 


27 


16 


2 .50000E+01 


. 16600E+01 


.OOOOOE+OO 


28 


29 
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17 


2 .500006+01 


.25800E+01 


. OOOOOE+OO 


30 


31 


18 


2 .48750E+01 


.35000E+01 


.OOOOOE+OO 


32 


33 


19 


2 .57500E+01 


. 17000E+01 


. OOOOOE+OO 


34 


35 


20 


2 .57500E+01 


.35000E+01 


.OOOOOE+OO 


36 


37 


21 


2 .65000E+01 


. 17500E+01 


.OOOOOE+OO 


-!1 


38 


22 


2 .65000E+01 


.26200E+01 


.OOOOOE+OO 


-12 


39 


23 


2 .65000E+01 


.35000E+01 


.OOOOOE+OO 


-13 


40 


24 


2 .57500E+01 


.86000E+00 


.000006+00 


41 


42 


25 


2 .65000E+01 


.87000E+00 


.OOOOOE+OO 


-10 


43 


26 


2 .60000E+01 


.OOOOOE+OCi 


.OOOOOE+OO 


-1 


-2 


27 


2 .62500E+01 


.000006+00 


.OOOOOE+OO 


-j 


-4 


28 


2 .65000E+01 


.OOOOOE+OO 


.000006+00 


-5 


-6 



INPUT OF ELEMENT PROPERTIES (M= 0) 



NUMBER OF GROUPS OF PROPERTIES (NGPE)= 1 

NUMBER (F PROPERTIES PER GROUP INPRE)= 4 



CARDS OF ELEMENT PROPERTIES 

))))) 1 .aOOOOE+07 .30000E+00 .OOOOOE+OO .23000E+01 

))))) -I .OOOOOE+OO .OOOOOE+OO .OOOOOE+OO .OOOOOE+OO 



INPUT OF ELEMENTS <M= 0) 



MAX. NUMBER OF ELEMENTS <NELT)= 
MAX. NUMBER OF NODES PER ELEMENT <NNEL)= 
DEFAULT ELEMENT TYPE <NTPE)= 
NUMBER OF GROUPS OF ELEMENTS <NGRE)= 
INDEX FOR NON SYMMETRIC PROBLEM <NSYM)= 
INDEX FOR IDENTICAL ELEMENTS (NIDENT)= 



5 

B 



0 

0 



ELEMENT: 1 TYPE: 2 N.P. : 8 D.G.F. : 

CONNECTIVITY (NE) 1 4 6 

ELEMENT: 2 TYPE: 2 N.P. : 8 D.O.F. ; 

CONNECTIVITY (NE) 6 9 11 

ELEMENT: 3 TYPE: 2 N. P. : 8 D.O.F. : 

CONNECTIVITY (NE) 11 14 16 

ELEMENT: 4 TYPE: 2 N.P. : 8 D.O.F. : 

CONNECTIVITY (NE) 16 19 21 

ELEMENT: 5 TYPE: 2 N. P. : 8 D.O.F. : 

CONNECTIVITY (NE) 26 27 28 



16 N. PROP; 0 EL. 


PROP: 


4 


GROUP: 


0 

V 


7 3 5 3 


2 








16 N. PROP: 0 EL. 


PROP; 


4 


GROUP; 


0 


12 13 10 8 


7 








16 N. PROP: 0 EL. 


PROP; 


4 


GROUP; 


0 


17 18 15 13 


12 








16 N. PROP: 0 EL. 


PROP; 


4 


GROUP: 


0 


22 23 20 18 


17 








16 N. PROP; 0 El. 


PROP: 


4 


GROUP: 


0 


25 21 19 16 


24 









MEAN BAND HEIGHT= 9. 1 MAXIMUM= 15 

LENGTH OF A TRIANGLE IN KG (NKG)= 393 

NUMBER OF INTEGRATION POINTS (NPG)= 45 
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INPUT OF CONCENTRflDED LOADS (M= 0) 



CARDS OF NODAL LOADS 



>)>>) 1 .OOOOOE+00 -.lOOOOE+02 

)>)>) 3000 0 0000000 0 0 0 0 

>>))> -1 .OOOOOE+00 .OOOOOE+00 



ASSEMBLING OF DISTRIBUTED LOADS (M= 0) 



SUBSPACE ITERATION (M= 0) 



NUMBER OF DESIRED EIGENVALUES 


(NVAL?)= 


3 


MAX. NUMBER OF ITERATIONS PERMITTED 


(NITER)= 


20 


INDEX FOR DIAGONAL MATRIX 


(NMDIAG)= 


0 


CONVERGENCE TOLERANCE ON EIGEf^VALUES 


(EPSLB)= 


. lOOOOE-02 


SHIR 


(SHIR) = 


. OOOOOE+CK) 


SUBSPACE DIMENSION 


(NSS)= 


5 


MAX. NUMBER OF ITERATION IN JACOBI 


(NSwM)= 


12 


CONVERGENCE TOLERANCE IN JACOBI 


(TOLJAC)= 


.IOOOOE-11 



ITERATION I MAX. ERROR= .5E+06 EXACT EIGENVALUES; 0 
ITERATION 2 MAX. ERROR= .AE+00 EXACT EIGENVALUES: 0 
ITERATION 3 MAX. ERROR= . lE-01 EXACT EIGENVALUES: 3 

. . . . CONVERGENCE IN 4 ITERATIONS 



EIGENVALUE NO. 1= .56152E+04 
EIGENVECTOR; 



NODES 


X 


Y 


Z 


DEGREES OF FREEDOM 


(* = prescr; 


1 


.OOOOOE+00 


.30000E+01 


.OOOOOE+00 


.OOOOOE+00 » 


. 66375E+00 


2 


.OOOOOE+00 


.32500E+01 


.OOOOOE+00 


.OOOOOE+00 * 


.66172E+00 


3 


.OOOOOE+00 


.35000E+01 


.OOOOOE+00 


.OOOOOE+00 * 


.658672+00 


4 


.75000E+00 


.29800E+01 


.OOOOOE+00 


-. 19930E-01 


. 60786E+00 


5 


.75000E+00 


.35000E+01 


.OOOOOE+00 


.45051E-01 


.60490E+00 


8 


.15000E+01 


.29000E+01 


.OOOOOE+00 


-.40117E-01 


.48147E+00 


7 


.15000E+01 


.32000E+01 


.OOOOOE+00 


. 18612E-01 


.47890E+00 


8 


. 16250E+01 


.35000E+01 


.OOOOOE+00 


• .78526E-01 


.45397E+00 


9 


.25000E+01 


.27300E+01 


.OOOOOE+00 


-.43577E-01 


.23471E+00 
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10 .2A167E+01 

11 .35000E+01 

12 .35000E+01 

13 .32500E+01 
lA .A2500E+01 

15 .A0833E+01 

16 .50000E+01 

17 .50000E+01 

18 .A8750E+01 

19 .57500E+01 

20 .57500E+01 

21 .65000E^1 

22 .65000E+01 

23 .65000E+01 

24 .57500E+01 

25 .65000E+01 

26 .60000E+01 

27 .62500E+01 

28 .65000E+01 

EIGENVALUE NO. 
EIGENVECTOR: 

NODES X 

1 .OOOOOE+00 

2 .OOOOOE+00 

3 .OOOOOE+00 
A .75000E+00 

5 .75000E+00 

6 .15000E+01 

7 .15000E+01 

8 .16250E+01 

9 .25000E+01 

10 .2A167E+01 

11 .35000E+01 

12 .35000E+01 

13 .32500E+01 
lA .A2500E+01 

15 .A0833E+01 

16 .50000E+01 

17 .50000E+01 

18 .A8750E+01 

19 . 57500E+01 

20 .57500E+01 

21 .65000E+01 

22 .65000E+01 

23 .65000E+01 
2A .57500E+01 
25 .65000E+01 



. 35000E+01 . OOOOOE+00 


.8029AE-01 


. 25653E+00 


.2AA00E+01 .OOOOOE+00 


-. A3399E-01 


. 1416£'E*vO 


.29700E+01 .OOOOOE+00 


.725A1E-02 


. lji73AE+00 


.35000E+01 .OOOOOE+00 


.687366-01 


. 17225E+00 


.21200E+01 .OOOOOE+00 


-. 3230AE-01 


.72376E-01 


.35000E+01 .OOOOOE+00 


.A8682E-01 


.85755E-01 


. 16600E+01 . OOOOOE+00 


-. 175A8E-01 


. 302A0E-01 


.25800E+01 .OOOOOE+00 


-.50562E-02 


.33255E-01 


.35000E+01 .OOOOOE+00 


.298606-01 


.332826-01 


.17000E+01 .OOOOOE+00 


- 78157E-02 


. 17301E-01 


.35000E+01 .OOOOOE+«Xl 


. 1A539E-01 


. 166A7E-01 


.17500E+01 .OOOOOE+00 


.OOOOOE+OO * 


. llSOlE-01 


.26200E+01 .0000(€+00 


.OOOOOE+OO * 


. S5616E-02 


.35000E+01 .OOOOOE+00 


.OOOCiOE+OO * 


.11585E-01 


.86000E+00 .(lOOOOE+OO 


-. 1922AE-02 


. 15207E-01 


.87000E+00 .OOOOOE+00 


.OOOOOE+OO ♦ 


.98S38E-C2 


.OOOOOE+OO .OOOOOE+00 


.OOOOOE+OO * 


.00000E+0<3 + 


.OOOOOE+00 .OOOOOE+OO 


.OOOOOE+OO + 


.OOOOOE+OO * 


.OOOOOE+OO .OOOOOE+OO 


.OOOOOE+OO ♦ 


.OOOOOE+OO ♦ 


2 = .37888E+05 







Y Z 


DEGREES OF FREEDOM 


(♦ = PRESCRlBi 


.300006+01 .000006+00 


.(•OOOOE+OO ♦ 


-.43557E+00 


.325006+01 .OOOOOE+OO 


.OOOOOE+OO * 


- 43347E+00 


.35000E+01 .000006+00 


.0000C€+00 * 


-.43308E+C0 


.29800E+01 .OOOOOE+OO 


.75A78E-01 


-.30606E+00 


.35000E+01 .OOOOOE+OO 


-.66589E-01 


-.307286+00 


.290006+01 .OOOOOE+OO 


. 12568E+00 


-. 50310E-01 


.320006+01 .OOOOOE+OO 


. 19735E-01 


-.43091 £-01 


.35000E+01 .000006+00 


-.837126-01 


-.50C-23E-02 


.273006+01 .OOOOOE+OO 


. 10301E+00 


. 25248E+00 


.35000E+01 .OOOOOE+OO 


-. 30655E-01 


.237036+00 


.2AA00E+01 .OOOOOE+OO 


.43413E-01 


.31536E+00 


.29700E+01 .OOOOOE+OO 


. 53209E-01 


.32955E+00 


.35000E+01 .OOOOOE+OO 


.32536E-01 


.31620E+00 


.212006+01 .OOOOOE+OO 


.3A673E-02 


. 27207E+00 


.35000E+01 .OOOOOE+OO 


.7A869E-01 


. 29474E+0O 


.16600E+01 .OOOOOE+OO 


-. 12682E-01 


.20050E+(Xl 


.258006+01 .OOOOOE+OO 


.22806E-01 


.210036+00 


.35000E+01 .OOOOOE+OO 


.77638E-01 


.23648E+00 


.17000E+01 .OOOOOE+OO 


- 23282E-02 


. 14099E+00 


.35000E+01 .OOOOOE+OO 


.402326-01 


. 17473E+00 


.17500E+01 .000006+00 


.000006+00 ♦ 


.11596E+00 


.262006+01 .OOOOOE+OO 


.000006+00 ♦ 


. 1A199E+00 


.35000E+01 .OOOOOE+OO 


.OOOOOE+OO ♦ 


. 15438E+00 


.86000E+00 .OOOOOE+OO 


. 15066E-02 


. 10386E+00 


.870006+00 .000006+00 


.OOOOOE+OO ♦ 


.7I762E-01 
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26 


.60000E+01 .OOOOOE+OC) .OOOOOE+00 


. OOOOOE+OO 




.000006+00 » 


27 


.62500E+01 .OOOOOE+00 .OOOOOE+00 


.OOOOOE+OO * 


.OOOOOE+OO * 


28 


.65000E+01 .OOOOOE+00 .OOOOOE+00 


.OOOOOE+OO ♦ 


.OOOOCiE+00 ♦ 


EI6ENVALUE NO. 3 ^ . 10014E+06 








EIGENVECTOR: 








NODES 


X Y Z 


DEGREES OF FREEDOM 


(* = prescrib: 


1 


.OOOOOE+00 .30000E+01 .OOOOOE+00 


.OOOOOE+OO 


♦ 


-.41128E+00 


2 


.OOOOOE+00 .32500E+01 .OOOOOE+00 


1 

§ 

o 

8 




-.425946+00 


3 


.OOOOOE+00 .35000E+01 .OOOOOE+00 


.OOOOOE+OO 


* 


-.416266+00 


A 


.75000E+00 .298002+01 .OOOOOE+00 


. 12574E+00 




-.222926+00 


5 


.75000E+00 .35000E+01 .OOOOOE+00 


-.69262E-01 




-.225416+00 


6 


.15000E+01 .29000E+01 .OOOOOE+00 


. 17483E+00 




. 105696+00 


7 


.15000E+01 .32000E+01 .OOOOOE+00 


.68934E-01 




.117736+00 


6 


.16250E+01 .35000E+01 .OOOOOE+00 


-.335336-01 




. 149246+00 


3 


.25000E+01 .27300E+01 .OOOOOE+00 


.89392E-01 




.324376+00 


10 


.24167E+01 .35000E+01 .OOOOOE+OO 


.86100E-01 




.322396+00 


11 


.35000E+01 .24400E+01 .OOOOOE+OO 


-.4720SE-01 




. 12451E+00 


12 


.35000E+01 .29700E+01 .OOOOOE+OO 


.81544E-01 




. 14886E+00 


13 


.32500E+01 .35000E+01 .OOOOOE+OO 


. 18077E+00 




.20020E+00 


14 


.42500E+01 .21200E+01 .OOOOOE+OO 


- 87810E-01 




-.78360E-01 


15 


.40833E+01 .35000E+01 .OOOOOE+OO 


. 18541E+00 




-.14116E-01 


16 


.50000E+01 .16600E+01 .OOOOOE+OO 


-.751386-01 




-.21317E+00 


17 


.50000E+01 .25800E+01 .OOOOOE+OO 


-. 10474E-01 




-.21304E+00 


18 


.48750E+01 .35000E+01 .00000E+()0 


. 135446+00 




-. 171316+00 


19 


.57500E+01 .17000E+01 .OOOOOE+OO 


-.416006-01 




-.216386+00 


20 


.57500E+01 .35000E+01 .OOOOOE+OO 


.629316-01 




-.272856+00 


21 


.65000E+01 .17500E+01 .OOOOOE+OO 


.OOOOOE+OO 




-.22656E+C0 


22 


.65000E+01 .26200E+01 .OOOOOE++X) 


8 

8 


♦ 


-.284366+00 


23 


.65000E+01 .35000E+01 .OOOOOE+OO 


.000006+00 




-.290856+00 


24 


.57500E+01 .86000E+00 .OOOOOE+OO 


-.27562E-01 




-. 16051E+(i0 


25 


.65000E+01 .87000E+00 .OOOOOE+OO 


.000006+00 


* 


-. 11610E+00 


26 


.600006+01 .OOOOOE+OO .OOOOOE+OO 


.000006+00 


* 


.000006+00 * 


27 


.62500E+01 .OOOOOE+OO .OOOOOE+OO 


.000006+00 


* 


.OOOOOE+OO 


28 


.65000E+01 .bOOOOE+OO .OOOOOE+OO 


.OOOOOE+OO 


* 


.000006+00 ♦ 



END OF PROBLEM, 1676 UTILIZED REAL WORDS OVER 20000 
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E = 30,000 ksi 

V = 0,25 

thickness = 1 

All dimensions in inches 
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cantilevered beam for comparison with the results of Felippa 



The following table of results for the cantilevered 
beam was obtained by Carlos A. Felippa. 





DEFLECTION 


AND NORMAL STRESS 






Tip Deflection 


Stress cT^ 


Element 


Me ah 


S= Vc 


at X= 9",Y= 6" 


CST 


A-1 


0.30556 


51.225 




A-2 


0.54188 


57.342 


LST 


B-1 


0.35506 


59.145 




B-2 


0.35569 


60.024 


Beam Theory 
(upper bound for v^) 


0.35583 


60.000 



For comparison, the tip defelections from MEF are the 
ones for nodes 161 thru 165. The stresses are the stresses 
listed for Gauss Point 3 of elements 51 and 52. 
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F.£.«. 3. 

6.T0UZ0T, G.DHATT 
MODIFIED BY 

REHE £. RUESCH 



IMAGE OF DATA CARDS 



COLUMN NUMBER 

CARD 1 2 3 A 5 6 7 

NUMBER 1234567890123A56783012345678g012345678901234567330123456739012345fa7a3012 



1 COMT 

2 CANTILEAVERED BEAiM 12 X 48 X 1 (INCHES) 

3 6 NODED TRIANGUALAR ELEMENTS (ELEMG3) 

4 64 aEMENTS 

5 FOR COMPARISON WITH THE RESULTS OF CARLOS A. FELIP^A 

6 

7 (ioOR 

8 165 2 2 



9 


1 




0.0 


0.0 




0.0 


161 




48.0 




0.0 




0.0 


5 


10 


2 




0.0 


3.0 




0.0 


162 




48.0 




3.0 




0.0 




11 


3 




0.0 


6.0 




0.0 


163 




48.0 




6.0 




0.0 


3 


12 


4 




0.0 


9.0 




0.0 


164 




48.0 




9.0 




0.0 


rr 

u 


13 


5 




0.0 


12.0 




0.0 


165 




48.0 




12.0 




0.0 


c: 


14 


0 




























15 


COND 




























16 


11 




























17 


1,2, 3, 4, 5,0 


























18 


0 




























19 


PREL 




























20 


1 


3 


























21 


1,30.0E03,0.25,0.0, 
























22 


0 




























23 


ELEM 




























24 


64 


6 


3 
























■25 


1 


16 


10 3 


1 


1 


1 


6 


11 


12 


13 


7 


0 






26 


17 


16 


10 3 


1 


1 


1 


7 


13 


8 


3 


2 


0 






27 


33 


16 


10 3 


1 


1 


3 


8 


13 


9 


5 


4 


0 






28 


49 


16 


10 3 


1 


1 


5 


9 


13 


14 


15 


10 


0 







29 0 

30 SOLC 

31 1,0. 0,-40. 0,0.0 
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32 

33 

34 

35 

36 



163, 

0 

LINM 

1 

STOP 



CARD l2345678901234567890l2345678S012345678901234567390l234567890i2345b7S30!224567S90 

NUMBER 1 2 3 4 5 6 7 8 

COLUMN NUMBER 



END OF DATA 



COMMENTS 



CANTILEAVERED BEAM 12 X 48 X 1 (INCHES) 

6 NODED TRIAN6UALAR ELEMENTS (ELEM03> 

64 aEMENTS 

FOR COMPARISON WITH THE RESULTS OF CARLOS A. FELIPPA 



INPUT OF NODES IM= 0) 



MAX. NUMBER OF NODES 
MAX. NUMBER OF D.O.F. PER NODE 
DliMENSIONS Or THE PROBLEM 
COORDINATE SCALE FACTORS 
UORKSPACE IN REAL WORDS 



INNT)= 165 
INDLN)= 2 

INDIM>= 2 

(FP.C)= .lOOOOE+01 
INVA)= 2000C 



lOOOOE+01 .lOOOOE+01 



INPUT OF BOUNDARY CONDITIONS (M= 0> 



BOUNDARY CONDITIONS CARDS 



»»> 1100000000 .OOOOOE+00 .OOOOOE+00 .OOOOOE+00 
>>»> 1 2 3 4 5 0 0 

»» >0000000000 .OOOOOE+00 .OOOOOE+00 .OOOOOE+00 



. COOOOE+00 . 000<X)E-*^ 
0 0 0 0 0 
. OOOOOE+00 . OOOOOE+00 



. OOOOOE+00 . 00000£i-00 
0 0 0 0 
. OOOOOE+00 . OOOOOE-HjO 



TOTAL NUMBER OF NODES 


INNT)= 


165 


TOTAL NUMBER OF D.O.F. 


INDLT)= 


330 


NUMBER OF EQUATIONS TO BE SOLVED 


(N£Q>= 


320 


NUMBER OF PRESCRIBED NON ZERO D.O.F. 


INCLNZ>= 


0 


NUMBER OF PRESCRIBED ZERO D.O.F. 


(NCLZ>= 


10 
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TOTAL NUMBER OF PRESCRIBED D.O.- 



(NCLT): 



10 



NODAL COORDINATES ARRAY 



NO D.L. 



EQUATION NUMBER 



1 


2 


.OOOOOE+OO .OOOOOE+OO 


.OOOOOE+OO 


-1 


_-5 


2 


2 


.OOOOOE+00 .30000E+01 


.OOOOOE+OO 


-3 


-A 


3 


2 


.OOOOOE+OO .60000E+01 


.OOOOOE+OO 


-5 


-6 


A 


2 


.OOOOOE+OO .90000E+01 


.OOOOOE+OO 


-7 


-8 


5 


2 


.OOOOOE+OO .12000E+02 


.OOOOOE+OO 


-9 


-10 


6 


2 


.15000E+01 .OOOOOE+OO 


.OOOOOE+OO 


1 


2 


7 


2 


.15000E+01 .SOOOOE+Oi 


.OOOOOE+OO 


3 


A 


a 


2 


.15000E+01 .60000E+01 


.OOOOOE+OO 


5 


6 


9 


2 


.15000E+01 .90000E+01 


.OOOOOE+OO 


7 


B 


10 


2 


.15000E+01 .12000E+02 


.OOOOOE+OO 


9 


10 


11 


2 


.30000E+01 .OOOOOE+OO 


.OOOOOE+OO 


11 


1£ 


12 


2 


.30000E+01 .30000E+01 


.OOOOOE+OO 


13 


14 


13 


2 


.30000E+01 .60000E+01 


.OOOOOE+OO 


15 


16 


14 


2 


.30000E+01 .90000E+01 


.OOOOOE+OO 


17 


18 


15 


2 


.30000E+01 .12000E+02 


.OOOOOE+OO 


19 


20 


16 


2 


.A5000E+01 .OOOOOE+OO 


.OOOOOE+OO 


21 


22 


17 


2 


.A5000E+01 .30000E+01 


.OOOOOE+OO 


23 


24 


IB 


2 


.A5000E+01 .60000E+01 


.OOOOOE+OO 


25 


26 


19 


2 


.A5000E+01 .90000E+01 


.OOOOOE+OO 


27 


28 


20 


2 


.A5000E+01 .12000E+02 


.OOOOOE+OO 


29 


30 


21 


2 


.60000E+01 .OOOOOE+OO 


.OOOOOE+OO 


31 


32 


22 


2 


.60000E+01 .30000E+01 


.OOOOOE+OO 


33 


34 


23 


2 


.60000E+01 .60000E+01 


.OOOOOE+OO 


35 


36 


2A 


2 


.60000E+01 .90000E+01 


.OOOOOE+OO 


37 


38 


25 


2 


.60000E+01 .12000E+02 


.OOOOOE+OO 


39 


AO 


26 


2 


.75000E+01 .OOOOOE+OO 


.00(i00E+00 


A1 


42 


27 


2 


.75000E+01 .30000E+01 


.OOOOOE+OO 


A3 


AA 


26 


2 


.75000E+01 .60000E+01 


.OOOOOE+OO 


A5 


46 


29 


2 


.75000E+01 .90000E+01 


.OOOOOE+OO 


47 


48 


30 


2 


.75000E+01 .12000E+02 


.OOOOOE+OO 


49 


50 


31 


2 


.90000E+01 .OOOOOE+OO 


.OOOOOE+OO 


51 


52 


32 


2 


.90000E+01 .30000E+01 


.OOOOOE+OO 


53 


54 


33 


2 


.90000E+01 .60000E+01 


.OOOOOE+OO 


55 


56 


3A 


2 


.90000E+01 .90000E+01 


. OOOOOE+OO 


57 


58 


35 


2 


.90000E+01 .12000E+02 


.OOOOOE+OO 


59 


60 


36 


2 


.10500E+02 .OOOOOE+OO 


. OOOOOE+OO 


61 


62 


37 


2 


.10500E+02 .30000E+01 


.OOOOOE+OO 


63 


64 


3B 


2 


.10500E+02 .60000E+01 


.OOOOOE+OO 


65 


66 


39 


2 


.10500E+02 .90000E+01 


.OOOOOE+OO 


67 


68 


AO 


2 


.10500E+02 .12000E+02 


.OOOOOE+OO 


69 


70 


A1 


2 


.12000E+02 .OOOOOE+OO 


.OOOOOE+OO 


71 


72 


A2 


2 


.120006+02 .30000E+01 


.OOOOOE+OO 


73 


74 


A3 


2 


.12000E+02 .60000E+01 


.OOOOOE+OO 


75 


76 



(NEQ) 
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AA 

A 5 

A 6 

A 7 

Ad 

A 9 

50 

51 

52 

53 

5 A 

55 

56 

57 

58 

59 

60 

61 

62 

63 

6 A 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

63 

8 A 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9 A 



2 .120006+02 
2 .120006+02 
2 .135006+02 
2 .135006+02 
2 .135006+02 
2 .135006+02 
2 .135006+02 
2 .150006+02 
2 .150006+02 
2 .150006+02 
2 .150006+02 
2 .150006+02 
2 .165006+02 
2 .165006+02 
2 .165006+02 
2 .165006+02 
2 .165006+02 
2 .180006+02 
2 .180006+02 
2 .180006+02 
2 .180006+02 
2 .180006+02 
2 .195006+02 
2 .195006+02 
2 .195006+02 
2 .195006+02 
2 .195006+02 
2 .210006+02 
2 .210006+02 
2 .210006+02 
2 .210006+02 
2 .210006+02 
2 .225006+02 
2 .225006+02 
2 .225006+02 
2 .225006+02 
2 .225006+02 
2 .240006+02 
2 .240006+02 
2 .240006+02 
2 .240006+02 
2 .240006+02 
2 .255006+02 
2 .255006+02 
2 .255006+02 
2 .255006+02 
2 .255006+02 
2 .270006+02 
2 .270006+02 
2 .270006+02 
2 .270006+02 



. 900006+0 1 . 000(106+00 
. 120006+02 . 000006+00 
.000006+00 .000006+00 
.300006+01 .000006+00 
.600006+01 .000006+00 
.900006+01 .000006+00 
.120006+02 .000006+00 
.000006+00 .000006+00 
. 300006+01 . 000006+00 
.600006+01 .000006+00 
.900006+01 .000006+00 
.120006+02 .000006+00 
.000006+00 .000006+00 
.300006+01 .000006+00 
.600006+01 .000006+00 
.900006+01 .000006+00 
.120006+02 .000006+00 
.000006+00 .000006+00 
.300006+01 .000006+00 
.600006+01 .000006+00 
.900006+01 .000006+00 
.120006+02 .000006+00 
.000006+00 .000006+00 
.300006+01 .000006+00 
.600006+01 .000(106+00 
.900006+01 .000006+00 
.120006+02 .000006+00 
.000006+00 .000006+00 
.300006+01 .000006+00 
.600006+01 .000006+00 
.900006+01 .000006+00 
.120006+02 .000006+00 
.000006+00 .000006+00 
.300006+01 .000006+00 
. 600006+01 . 000006+00 
.900006+01 .000006+00 
.120006+02 .000006+00 
.000006+00 .000006+00 
.300006+01 .000006+00 
.600006+01 .000006+00 
.900006+01 .000006+00 
.120006+02 .000006+00 
. 000006+00 . 000006+00 
.300006+01 .000006+00 
.600006+01 .000006+00 
.900006+01 .000006+00 
.120006+02 .000006+00 
.000006+00 .000006+00 
.300006+01 .000( t 06+00 
.600006+01 .000006+00 
.900006+01 .000006+00 



77 78 

79 30 

81 82 

S 3 64 

85 86 

67 83 

89 90 

91 92 

93 94 

55 96 

97 98 

99 lOO 

101 102 

103 104 

105 106 

107 108 

109 110 

111 112 

113 114 

115 116 

117 118 

119 120 

121 122 

123 124 

125 126 

127 128 

129 130 

131 132 

133 134 

135 136 

137 138 

139 140 

141 142 

143 144 

145 146 

147 148 

149 150 

151 152 

153 154 

155 156 

157 158 

159 160 

161 162 

163 164 

165 166 

167 168 

169 170 

171 172 

173 174 

175 176 

177 178 



118 



95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

136 

139 

140 

141 

142 

143 

144 

145 



rci ro ro ro 



2 .27000 E +02 
2 .26500 E +02 
2 .28500 E +02 
2 .285006+02 
2 .285006+02 
2 .285006+02 
2 .300006+02 
2 .300006+02 
2 .300006+02 
2 .300006+02 
2 .300006+02 
2 .315006+02 
2 .315006+02 
2 .315006+02 
2 .315006+02 
2 .315006+02 
2 .330006+02 
2 .330006+02 
2 .330006+02 
2 . 330006+02 
2 .330006+02 
2 .345006+02 
2 .345006+02 
2 .345006+02 
2 .345006+02 
2 .345006+02 
2 .360006+02 
2 .360006+02 
2 .360006+02 
2 .360006+02 
2 .360006+02 
2 .375006+02 
2 .375006+02 
.375006+02 
. 375006+02 
.375006+02 
.390006+02 
.3900(€+02 
2 .390006+02 
2 .390006+02 
2 .390006+02 
2 .405006+02 
2 .405006+02 
2 .405006+02 
2 .405006+02 
2 .405006+02 
2 .420006+02 
2 .420006+02 
2 .420006+02 
2 .420006+02 
2 .420006+02 



. 120006+02 
. 000006+00 
.300006+01 
.600006+01 
.900006+01 
. 120006+02 
.000006+00 
.300006+01 
.600006+01 
. 900006+01 
. 120006+02 
.0000c€+00 

.300006+01 
. 600 Ct 06+01 
.900006+01 
. 120006+02 
.000006+00 
.300006+01 
.600006+01 
. 9(10006+01 
. 120006+02 
.000006+00 
.300006+01 
.600006+01 
.900006+01 
. 120006+02 
.000006+00 
.300006+01 
.600006+01 
.900006+01 
. 120006+02 
.000006+00 
.300006+01 
. 600006+01 
.900006+01 
. 120006+02 
.00<9006+00 
.300006+01 
.600006+01 
. 900006+01 
. 120006+02 
.000006+00 
.300006+01 
.600006+01 
.900006+01 
. 120006+02 
.000006+00 
.300006+01 
.600006+01 
. 900006+01 
. 120006+02 



.000006+00 
.00( i ( h )6+( iO 
.000006+00 
. 000 <) 0£+00 
.000006+00 
.000006+00 
.000006+00 
. OOOC '06+00 
.000006+00 
. 000006+00 
.000006+00 
. 0000(€+00 
.000006+00 
.00000£+0<3 
.000006+00 
. 000006+00 
.000006+00 
.000006+00 
.000006+00 
. 000Cm3E+(i0 
.000006+00 
.000006+00 
.000006+00 
.000006+00 
.000006+00 
.000006+00 
.000006+00 
.000006+<30 
.000006+00 
.000006+00 
.000006+00 
.000006+00 
.000006+00 
. 000006+00 
.000006+00 
. 000006+00 
.000006+00 
.000006+00 
.000006+00 
.0000<36+00 
.000006+00 
. 0000(€+00 
.000006+00 
.000006+00 
.000006+00 
.000006+00 
.000006+00 
.000006+00 
.000006+00 
.000006+00 
. 000006+00 



179 


180 


181 


182 


183 


184 


185 


166 


187 


188 


189 


190 


191 


192 


193 


194 


195 


196 


197 


198 


199 


200 


201 


202 


203 


204 


205 


206 


207 


208 


209 


210 


1 

X 


212 


213 


214 


215 


216 


217 


218 


219 


220 


221 


222 


223 


224 


225 


226 


227 


223 


229 


230 


231 


232 


233 


234 


235 


236 


237 


238 


239 


240 


241 


242 


243 


244 


245 


246 


247 


248 


249 


250 


251 


252 


253 


254 


255 


256 


257 


258 


259 


260 


261 


262 


263 


264 


265 


266 


267 


268 


269 


270 


271 


272 


273 


274 


275 


276 


277 


278 


279 


280 



119 



146 


2 


.43500E+02 .OOOOOE+00 .OOOOOE+00 


281 


282 


147 


2 


.43500E+02 .30000E+01 .OOOOOE+00 


263 


264 


146 


2 


. 43500E+02 . 60000E+01 . 00()00E+00 


235 


286 


149 


2 


.43500E+02 .90000E+01 .OOOOOE+00 


237 


2B8 


150 


2 


.43500E+02 .12000E+02 .OOOOOE+00 


269 


290 


151 


2 


.45000E+02 .OOOOOE+00 .OOOOOE+00 


291 


252 


152 


2 


.45000E+02 .30000E+01 .OOOOOE+00 


293 


294 


153 


2 


.4500(€+02 .60000E+01 .OOOOOE+00 


^35 


296 


154 


2 


.45000E+02 .90000E+01 .OOOOOE+00 


297 


298 


155 


2 


.45000E+02 .12000E+02 .OOOOOE+OO 


259 


300 


156 


2 


.46500E+02 .0«Xi00E+00 .OOOOOE+OO 


301 


302 


157 


2 


.46500E+02 .30000E+01 .OOOOOE+OO 


303 


304 


158 


2 


.46500E+02 .60000E+01 .OOOOOE+OO 


305 


306 


159 


2 


.46500E+02 .90000E+01 .OOOOOE+OO 


307 


308 


160 


2 


.46500E+02 .12000E+02 .OOOOOE+OO 


309 


310 


161 


2 


.48000E+02 .OOOOOE+OO .OOOOOE+OO 


311 


312 


162 


2 


.48000E+02 .30000E+01 .OOOOOE+OO 


313 


314 


163 


2 


.48000E+02 .60000E+01 .OOOOOE+OO 


315 


316 


164 


2 


. 48000E+02 . 900(K)E+0 1 . OOOOOE+CO 


317 


318 


165 


2 


.48000E+02 .12000E+02 .OOOOOE+OO 


319 


320 



INPUT OF ELEMENT PROPERTIES (M= 0) 



NUMBER OF GROUPS OF PROPERTIES (NGPE>= 1 

NUMBER OF PROPERTIES PER GROUP <NPRE)= 3 



CARDS OF aEMENT PROPERTIES 

>>>>> I .30000E+05 .25000E+00 .OOOOOE+00 

> > > > > 0 . OOOOOE+00 . OOOOOE+00 . OOOOOE+00 



INPUT OF ELEMENTS (M= 0) 



MAX. NUMBER OF ELEMENTS (NllT)= 64 
MAX. NUMBER OF NODES PER ELEMENT (NNEL)= 6 
DEFAULT ELEMENT TYPE (NTP£)= 3 
NUMBER OF GROUPS OF ELEMENTS (NGRE)= 1 
INDEX FOR NON SYMMETRIC PROBLEM (NSYM)= 0 
INDEX FOR IDENTICAL ELEMENTS (NIDENT)= 0 



aEMENT: 1TY?£;3N.P.: 


6 D. 0. F. : 


12 N. PROP; 0 EL. PROP: 


3 GROUP: 


1 


CONNECTIVITY (NE) 1 


6 


11 


12 13 7 






ELEMENT: 2TY?E:3Y.P. : 


6 D. 0. F. : 


12 N'. PROP: 0 E.. PROP: 


3 GROUP: 


1 

A 


CONNECTIVITY (NE) 11 


16 


£1 


22 23 17 






ELEMENT: 3 TYPE: 3 N. P. : 


6 D. 0. F. : 


12 N. PROP: 0 EL. PROP; 


3 GROUP: 


1 


CONNECTIVITY (NE) 21 


26 


51 


32 33 27 






ELEMEN’: 4 TYPE: 3 N. ?. : 


6 D. 0. F. : 


12 N. PROP: 0 EL. PROP; 


3 GROUP: 


1 


CONNECTIVITY (NE) 31 


36 


41 


42 43 37 







120 



wV-rv” 1 ^ 3 *1 • 


E D. F. : 


Ic' N. 


PRCP; 0 


El. PROP: 


3 


6R0U-3 


:CNNECT!Vr'' (XE) 41 


46 5- 


52 


53 47 








ELE^'IEN"; 6 7’P£; 3 M. : 


6 D. C. F. : 


12 N. 


PROP; 0 


EL. PROP: 


3 


SROUP 


CLv^iErivry (\e) 51 


56 61 


62 


63 57 








E_EM£N~: ?T'?E;3N.P. : 


6 D. G. F. : 


12 N. 


PROP: 0 


EL. PROP: 


3 


GROUP 


CZNixECTIVITY (NE) 6: 


6S 71 


72 


73 67 








r_E;YE*r; S TYPE; 2 N. P. : 


5 D. G. F. : 


12 N. 


PROP: 0 


El. PROP; 


3 


GROUP 


CjNNECTIVrv (NE) 71 


76 81 


82 


S3 77 








E_EYENT: 9 TY^E: 3 N. 3. : 


6 D. 0. F. : 


12 N. 


PROP: 0 


EL. PROP: 


3 GROUP 


CCNNECTIVITY (NE) fli 


66 91 


92 


93 87 








E_EYEN“; 10 “YPEs 3 N. P. : 


S D.G.F.; 


12 N.* 


PROP; 0 


EL. PROP; 


3 


GROUP 


CONNECTIVITY (NE) 91 


96 101 


ICE 


iC3 97 








ELEY.EN': 1 1 T”PE: 3 N, ?. : 


5 D. 0. F. : 


12 N. 


PROP; 0 


EL. PROP: 


3 


GROUP 


CONNECTIVITY (NE) 101 


106 Hi 


112 


113 107 








5.EMEN": 12 TV^E: 3 N. P. ; 


6 D.C.F. ; 


12 N. 


PROP: 0 


EL. PROP: 


3 


GROUP 


-:ONMEC"IVITY (NE) 111 


116 121 


122 


123 117 








ELEMENT: 13 TYPE; 3 N. P. : 


6 D> C. F. : 


12 N. 


PROP: 0 


EL. PROP: 


3 


GROUP 


CONNECTIVITY (NE) 121 


126 131 


132 


1 77 i ;-7 
.IJW xC / 








ELdYEM:; 14 TyPE: 3 N. P. : 


5 D.O.F. : 


12 N. 


PROP: 0 


EL. PROP: 


4 

W 


GROUP 


COf^ECTIVITY (NE) 121 


136 141 


142 


143 137 








ELEVEN": 15 t^PE: 3 N". p. : 


6 D. 0. F. : 


12 N. 


PROP: 0 


EL. PROP: 


3 GROl'P 


CONNECTIVITY (NE) 141 


146 151 


152 


153 147 








ELEMENT: IS TYPE: 3 N. P. : 


6 D* 0> F. : 


12 N. 


3R0P; 0 


EL. PROP: 


3 


GROUP 


CONNECTIVITY (NE) 151 


156 161 


162 


163 *57 








ELEMENT: 17 TYPE; 3 N. : 


6 D> Oi F> : 


12 N. 


DROP: 0 


EL. PROP: 


3 


GROUP 


CONNECTIVITV (NE) 1 


7 13 


8 


3 £ 








ELEMENT: 18 Tvp£; 3 N. p. : 


S D. 0. F. : 


12 N. 


PROP: 0 


El. PROP: 


3 


GROUP 


CONNECTIVITY (NE) 11 


17 £3 


18 


13 12 








ElEMEN": 19 Typr. 3 3. . 


6 D.O.F. : 


12 N. 


PROP: 0 


EL. PROP: 


3 


GROUP 


CONNECTIVITY (NE) 21 


• 27 33 


28 


23 22 








E-EYENT: 20 TYPE: 3 N.P. : 


6 D. 0. F. : 


12 N. 


PROP; 0 


EL. PROP: 


3 


GROUP 


CONNECTIVITY (NE) 31 


37 43 


38 


33 32 








ELEMENT: 21 TYPE; 3 N. 3. ; 


6 D. U. F. : 


12 N. 


PROP: 0 


EL. PROP: 


3 


SROUP 


CONNECTIVITY (NE) 41 


47 53 


48 


43 42 








ELsME'j: : 2d t/pe; 3 N. P. : 


6 D.O.F. ; 


12 N’. 


PROP; 0 


EL. 3R0P: 


3 


GROUP 


CONNECTIVITY (NE) 51 


57 S3 


58 


53 52 








ELEMENT ; 23 TYPE; 3 N. P. ; 


6 D. 0. F. : 


12 N. 


PROP: 0 


EL. PROP: 


3 


GROUP 


CONNECTIVITY (NE) 61 


57 73 


68 


63 62 








3.EMENT: 24 TyPE: 3 N. : 


6 D. 0. F. ; 


!£ N. 


3RQP; 0 


EL. PRCP: 


3 


GROL'j 


CONNECTIVITY (NE) 71 


77 83 


78 


73 72 








ELEMENT : £5 TypE : 3 N. p. ; 


6 D. 0. F. ; 


12 N. 


PROP; 0 


EL. PROP: 


3 


GROUP 


CONNECTIVITY (NE) 81 


S7 93 


88 


S3 82 








ELEM.ENT: 26 TYPE: 3 N. p. ; 


6 D.O.F. : 


12 N. 


PROP: 0 


El. PROP: 


3 


GROUP 


CONNECTIVITY (NE) 91 


97 103 


98 


93 92 








S.’EM£NT; 27 TYPE: 3 N. ; 


6 D. 0. F. : 


12 N. 


PROP: 0 EL. PROP: 


3 


GROUP 


CONNECTIVITY (NE) 101 


107 113 


108 


103 102 








ELEyeNT; 28 TYPE: 3 N. o. : 


6 D. 0. F. : 


12 N. 


PROP: 0 


EL. PROP: 


3 


GROUP 


CQNNECTIVrV (NE) 111 


117 123 


118 


113 112 








ELEMENT: 29 ^YPE: 3 N. p. ; 


6 D. 0. F. : 


12 N. 


PROP: 0 


EL. PROP: 


3 


GROUP 


CONNECTIVry (NE) 12! 


127 133 


128 


123 122 








ELEMENT: 30 "YPE: 3 N. P. : 


6 D. 0. F. : 


12 N. 


PROP: 0 


EL. PROP: 


3 


GROUP 



121 



21 'Y3I: 5 6 D.O.-. : 

CONN£CTIV;“Y (VE) i4i iA7 155 
E_2^£nT: 55 'Y^E: 5 M. 0. : 6 S. G. r. : 

:ONNECTIVrY (N£) 151 157 165 

ELEYIN7: 25 ^Y^E: 3 ; 6 D. G.F. ; 

cc;M\tC'iyrY (ne) 3 a is 

ELEYEMT; 3h 'YPE; 5 N.?. : 6 D.O.F. : 
CONN'ECTIVrY (NE) 13 18 23 

E.£>^ES7: 35 ’YPE; 3 N.P.; 6 D.O.F. ; 

CONXECTIVIP/ (NE) 23 ’ 28 53 

E_E'^E^:T; 56 TYPE: 3 N.P.: fa D.O.F.; 

CDN'NECTIVFY (Nt) 33 33 45 

E-EYENT; 27 TYPE; 3 N. P. : fa D.O.F.; 

CaNiNECTIVITY (\E) 43 48 53 

ELEI*^£N’; 33 TYPE; 3 N. ?. : 6 D.O.F.; 

CONNEC’IVZTY (NE) 53 56 63 

ELEMENT; 55 TYPE; 3 N. P. : fa D.O.F.; 

CONNECTIVITY (NE) 63 68 73 

ELE'^ENT; 40 TYPE; 3 N.P. : 6 D.O.F. ; 

connectivity (NE) 73 78 83 

EwEYENT: 41 TYPE; 3 N.P.: 5 D.O.F. : 

CONNECTIVITY (N'E) 83 88 93 

E-Ei^ErsT: 42 TYPE: 3 N. P. : 6 D.O.F. : 

CONNECTIVITY (NE) 93 98 103 

ELEYENT; 43 TYPE; 3 N. ?. ; 6 D. Q.F. ; 

CONNECTIVITY (>€) 103 108 
ELEYiNT: 44 TYPE: 3 N.P. ; 6 D.O.F. : 

CONNECTIVITY (NE) 113 118 123 

ELEYENT: 45TYPE: 3 N.?. : 6 D.O.F.; 

CONNECTIVITY (NE) 123 128 133 

ELEMENT: 46 TYPE: 3 N. ?. ; 5 D.O.F.; 

CONNEC’IVITY (NE) 133 138 143 

ELEMENT: 47 TYPE: 3 N.P. : 6 D.O.F. : 

CONNECTIVITY (NE) 143 148 153 

ELEMENT: TYPE: 3 N. P. : 6 D. 0 . F. : 

CONNECTIVITY (NE) 153 158 163 

ELEMENT; 49 TYPE: 3 N.P. ; 6 D.O.F. ; 

CONNECTIVITY (NE) 5 9 13 

ELEMENT; 50 TYPE; 3 N.P. ; 6 D.O.F. ; 

CONNECTIVITY (NE) 15 19 23 

ELEMENT; 51 TYPE; 3 N.P. ; 6 D.O.F. ; 

CONNECTIVITY (NE) 25 29 33 

S.EMEN'; 52 TYPE: 3 N. P. ; 6 D.O.F. : 
CONNECTIVITY (NE) 35 39 43 

ELEMENT: 53 TY=E: 3 N.P. : 6 D.O.F. : 

CONNECTIVITY (NE) 45 49 53 

ELEMEN’; 5^ TYPE: 3 N. P. : 6 D.O.F.: 
CONNECTIVITY (NE) 55 59 63 

ELEMENT: 55 TYPE; 3 N, ?. ; 6 D. 0. F. : 

CONNECTIVITY (NE) 65 69 73 



128 


133 152 










12 \. 


PROP; 0 


rj 


PROP; 


3 GROUP; 


1 


148 


143 142 










12 N. 


PROP: 0 




PROP: 


3 GROUP; 


1 


153 


152 152 










12 N. 


PROP: 0 




PROP: 


3 GROUP: 


i, 


9 


5 4 










12 N. 


PROP: 0 


EL. 


PROP; 


3 GROUP: 


t 


19 


15 14 










12 N. 


PROP; 0 


CL« 


PROP: 


3 GROUP; 


1 


29 


25 24 










12 N. 


PROP; 0 


El. 


PROP: 


3 GROUP: 


< 


39 


35 34 










12 N. 


PROP; 0 


EL. 


PROP; 


3 GROUP; 


i 


49 


45 44 










12 N. 


PROP; 0 


EL. 


PROP; 


5 GROUP; 


i 

i 


59 


55 54 










12 N. 


PROP: 0 


ww. 


PROP; 


3 GROUP; 


i 

A 


59 


65 64 










12 N. 


PROP: 0 


Cl 

Uw. 


PROP; 


3 GROUP; 


1 

i 


79 


75 74 










12 N. 


PROP; 0 


EL. 


PROP: 


3 GROUP: 


1 


89 


85 84 










12 N. 


PROP: 0 


EL. 


PROP: 


3 GROUP: 


1 


99 


95 94 










12 N. 


PROP; 0 


EL. 


PROP: 


3 GROUP: 


1 

1 


109 


105 104 










12 N. 


PROP; 0 


EL. 


PROP: 


3 GROUP: 


1 


119 


115 114 










12 N. 


PROP; 0 


EL. 


PROP; 


3 GROUP: 


1 


129 


125 124 










12 N. 


PROP; 0 


EL. 


PROP: 


3 GROUP; 


i 

i 


139 


135 134 










12 N. 


PROP; 0 


EL. 


PROP; 


3 GROUP: 


1 


149 


145 144 










12 N. 


PROP: 0 


EL. 


PROP; 


3 GROUP; 


1 


159 


155 154 










12 N. 


PROP; 0 


EL. 


PROP; 


3 GROUP; 


i 


14 


15 10 










12 N. 


PROP; 0 


EL. 


PROP; 


3 GROUP: 


1 


24 


25 20 










12 N. 


PROP; 0 


EL. 


PROP: 


3 GROUP; 


1 


34 


35 30 










12 N. 


PROP: 0 


EL. 


PROP: 


3 GROUP: 


f 

X 


44 


45 40 










12 N. 


PROP; 0 


EL. 


PROP: 


3 GROUP: 


1 


54 


55 50 










12 N. 


PROP; 0 


EL. 


PROP: 


3 GROUP: 


1 


64 


65 60 










12 N. 


PROP: 0 


B.. 


PROP: 


3 GROUP: 


i 

X 


74 


75 70 











122 



£.Ei*1EN~: Dt TYPE: 3 'L ?. : 


S D.G.F. : 


12 N. 


PRO?: 0 


EL. 


PROP: 


3 SR0U3: 


1 

A 


CONNECTIVITY (NE) 75 


79 33 


8A 


85 80 












?-E»^£N": 57 TY^E: 3 \. ?. : 


6 0. Q. F. : 


12 N. 


PROP: 0 


x; 


PROP; 


3 GROLP: 


1 


CONNECTIVITY (NE) 85 


89 53 


9A 


95 90 












cLiMEN.: 58 TYPE; 3 N'. P. ; 


6 D. 0. F. : 


12 N. 


PROP: 0 


EL. 


PROP; 


5 


SRQU3; 


1 


CONNECTIVITY (NE) 95 


99 103 


lOA 


105 100 












ElEMEN'C; 59 TYPE: 3 N. ; 


6 D. C. F. : 


12 N. 


PROP: 0 


EL. 


PROP; 


tj 


GROUP: 


i 

i 


CONNECTIVITY (NE) 105 


109 113 


IIA 


115 no 












■E.EMENT; 60 TYPE: 3 N. P. • 


6 D. 0. F, ; 


12 N. 


PROP: 0 


EL. 


PROP: 


3 


GROUP: 


1 


CONNECTIVITY (NE) 115 


119 123 


12A 


125 120 












ELEMENT: 61 TYPE; 3 N. P. : 


6 D.O.F. : 


12 N. 


PROP: 0 


EL. 


PROP: 




GROUP; 


1 


CONNECTIVITY (NE) 125 


129 133 


13A 


135 130 












ELEMEN": 62 TY^E; 3 N. P. ; 


6 D. 0. F. ; 


12 N. 


PROP: 0 


El. 


PROP; 


3 


GROUP : 


f 

X 


CONNECTIVITY (NE) 135 


139 1A3 


lAA 


1A5 lAO 












r-E^ENT; S3 TYPE; 3 N. : 


b D. 0. F> : 


12 N. 


PROP; 0 


EL. 


PROP; 


3 GROUP; 


1 


CONNECTIVITY (NE) 1A5 


1A9 153 


15A 


155 150 












Element : 6A TY-'E: 3 N.P. ; 


6 D.O.F. ; 


12 N. 


PROP; 0 


EL. 


PROP; 


3 GROUP: 


1 


CONNECTIVITY (NE) 155 


159 163 


16A 


165 160 













BfiND r'EISHT= 16. 1 MAXIMU>:= 25 
LENGTH CF ft TRIftNBLE IN K6 (NKG)= 5152 

NUMBER CF INTEGRATION POINTS (NPG)= 192 



INPUT OP CONCENTSADED LOADS (N= 0) 



CARDS OF NODAL LOADS 



)))>> 


i 

X 


. OOCCOE+00 


-. AOOOOE+02 


)>)>) 


153 


0 0 


0 0 ( 


))))) 


0 


.OOOOOE+00 


.OOOOOE+00 



0 



ASSETSLING AND LINEAR SOLUTION (M= 0) 



INIEX FOR RESIDUAL COMPUTATION (NRES)= 1 
ENERGY (ENERG)= . 14252E+02 



ABSOLUTE VALUE OF MINIMUM PIVOT = . 1109AE+03 E3UAPI0N: 320 
ALGEBRAIC VALUE= . 1109AE+03 EQUATION: 320 
DETERMINANT = . 16934E+09 * 10 « 1520 



MAX. RESIDUAL VALUE= .fi65A4E-ll EQUATION 278 



SOLUTION 



123 



';CDE3 



DEGREES 0? FREEDQ)! (* = PRESCRIBED) 



1 


. OOOOOc+00 


.OOOOOE+00 


. 000002+00 


.OOOOOE+00 » 


.000002+00 * 


2 


. OOOCOE+OO 


. 30000E+0I 


.000002*00 


.000002+00 + 


.000002+0<) * 


3 


.OOOOOE+00 


.500002+01 


.000002+00 


.000002+00 ♦ 


.X0002+00 * 


4 


. OOOCOE+CK) 


.90000E+01 


. 000002+00 


.OOOCOE+Xi + 


.000002+00 ♦ 


5 


.000002+00 


. 12000E+02 


.000002+00 


.000002+00 » 


.000002+(i0 * 


£ 


. 15C00E+01 


.000002+00 


. OOXiOE+00 


-. 407612-02 


-. 181322-02 


— r 

/ 


. I5000E+01 


.30000E+01 


.OCOOOS+00 


-. 173072-02 


-.755352-03 


s 


. 150002*01 


.500002+01 


. (XiXiCE+00 


. 138302-15 


-.554662-03 


9 


. 15000E+01 


.90000E+01 


.000002+00 


. 173072-02 


-.755352-03 


10 


. 15CC0E+0: 


. 120002+02 


. 000002+00 


.407612-02 


-. 181322-02 


4 * 


.3000CE+01 


.eooooE+co 


.000002+00 


-.792752-02 


-.404852-02 


;2 


. 30000.E+v!l 


. 300002^01 


.000002+00 


-.359722-02 


-.258752-02 


13 


. 3000CE+01 


.60000E+01 


. 000002+00 


.283642-15 


-.231732-02 




.300COE+01 


.900002+01 


. XiOOOE+OO 


.359722-02 


-.268752-02 


* c 
. J 


.30000E+0I 


. 120002+02 


.000002+00 


.792752-02 


-.404852-02 


15 


.45000E+01 


.000002+fX! 


. OOOOOE+tXi 


-.115722-01 


-.590882-02 


17 


.450002+01 


.300002+01 


.000002+00 


-.545352-02 


-.555352-02 


IS 


.450002+01 


.500002+01 


. 000002+00 


.433422-15 


-.511722-02 


19 


.450002+01 


.90000E+01 


.000002+00 


.545352-02 


-.555952-02 


20 


.450002+01 


. 120002+02 


. XiOOOE+OO 


.115722-01 


-.590882-02 


2i 


.500002+01 


.000002+00 


.000002+00 


-.151192-01 


-. 106322-01 




.50C■00E•^01 


.300002+01 


. OOOOOE+00 


-.724512-02 


-.931942-02 


23 


.500002+01 


.500002+01 


.000002+00 


.585172-16 


-.887422-02 


•24 


.500002+01 


. SOOOOE+01 


.000002+00 


.724612-02 


-.931942-02 


25 


.50000E+01 


. 120002+02 


.000002+00 


.151182-01 


-. 106322-01 


2£ 


.750COE+C1 


.000002+00 


.000002+00 


-. 135342-01 


-. 152202-01 


27 


. 750002+01 


.300002+01 


.000002+00 


-.897262-02 


-.13951E-01 


£3 


.75000S+01 


.600002+01 


. COOOOE+00 


.729522-16 


-. 135152-0! 


£9 


.750002+01 


.900002+01 


.000002+00 


.897282-02 


-. 139512-01 


30 


. 750002+01 


. 120002+02 


. 00000£+<Xi 


. 185342-01 


-. 152202-01 


51 


.90OC0E-"Oi 


.OOOOOE-KiC 


.000X12+00 


-.218482-01 


-.205372-01 


32 


.900002+01 


. 20000E+01 


. OOXXi'+Xi 


-. 105332-01 


-. 194212-01 


32 


.900002+0; 


.500002+01 


.000002+00 


.900162-16 


-. 190152-01 


34 


.90000S+01 


. 900002+01 


. OOOOOE+00 


. 10633E-01 


-. 194212-01 


uJ 


.900002+01 


. 120002+02 


. 000002+00 


.218462-01 


-.205372-01 


5S 


. 10500E+02 


.000002+00 


. XiOOOE+00 


-.^50^2E-01 


-.268792-01 


37 


. 105002+02 


.300002+01 


.0XjX'£+OO 


-. 122292-01 


-.257042-01 


5S 


. 10500E+02 


. 500002+01 


.000002+Xi 


.105322-15 


-. 253052-01 


33 


. 10500E+02 


.900002+01 


. 000002+00 


. 122292-01 


-.257042-01 




. 10500E+02 


. 120002+02 


. 000002+00 


.250222-01 


-.258792-01 


41 


. 120COE+02 


.000002+00 


.000002+00 


-.280932-01 


-.338882-01 


42 


. 12CC0E+02 


.300005+01 


. 000002+00 


-. 13751 E-01 


-. 327652-01 


42 


. 12000E+02 


.500002+01 


.OOOOOE+00 


.12231E-15 


-.323972-01 


44 


. 120<j02+02 


.900002+01 


. OOOOOE+00 


.137612-01 


-.327552-01 


45 


. 12000E+02 


. 120002+02 


.OOOOOE+00 


.280932-01 


-.338882-01 


4£ 


. 13500E+02 


.OOCOOE+00 


. OOXjOc+OO 


-.310192-01 


-. 415512-01 
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11 

'-h 

49 

50 

c;« 

52 

53 

5t 

55 

5c 

57 

56 

59 

90 

51 

ij 

c3 

54 

£5 

£5 

£.7 

53 

59 

70 

71 

7c 

73 

74 

75 

75 

77 

78 

79 

80 

31 

Sc 

S3 

34 

35 

S6 

S7 

33 

33 

90 

3i 

le- 

ss 

94 

35 

56 

57 



. : 35COC-02 
. 135009+02 
. 135009+02 
. 13500E+i>2 
. 150009+02 
. 150009+02 
. 1500CE+02 
. 150009+02 
. 150009+02 
. 165009+02 
. 165009+02 
. 1S50C9+02 
. 165CK:;E+02 
. 165009+02 
. lSOOOE+02 
. 18(!00£+02 
. 1SC009+02 
. 130009+02 
. 130009+02 
. 155009+02 
. 1950CE+02 
. 19500-9+02 
. 195009+02 
. 155009+02 
.210009+02 
.210009+02 
.210009+02 
.210009+02 
.£100C€+02 
.225009+02 
.££5009+02 
.225009+02 
.22-5009+02 
.225009+02 
.240009+02 
.240009+02 
.240009+02 
.240009+02 
.240009+02 
.255009+02 
.255009+Cfc- 
.255009+02 
.255009+02 
.255009+02 
.270C!0E+02 
.270009+02 
.270009+02 
.270009+02 
.270002+02 
.285009+02 
.2e50(;9+02 



. 300009+01 
.600009+01 
.500009+01 
. 120009+02 
. 000009+00 
. 300009+01 
.600009+01 
.900009+01 
. 120009+02 
.000009+00 
.300009+01 
.600009+01 
.900009+01 
. 120009+02 
.000009+00 
.300009+01 
. 600009+01 
. 300009+01 
. 120009+02 
.000009+00 
.300()09+01 
.600009+0! 
.900009+01 
. 120009+02 
.000009+00 
.300009+01 
.60()00E+01 
.300009+01 
. 120009+02 
.000009+00 
.300009+01 
.500009+01 
.900C»0E+01 
. 12C00E+02 
.000009+00 
.300009+01 
.600009+01 
.900009+01 
. 12C00E+02 
.000009+00 
. 300009+01 
.500009+01 
.300009+01 
. lEOtiOE+Oa 
.000009+00 
.300002+01 
.600009+01 
.900009+01 
. 120009+02 
.000009+00 
.300009+01 



.000009+00 
. 00:X:OE+00 
. 000009+00 
.000009+00 
.0000OEH10 
.000009+00 
.000009+00 
.OOOCOE+00 
.0000(!E+00 
.000009+00 
.000009+00 
. 00«X!0£+00 
.0X3009+00 
.X)OO0E+OO 
.000009+00 
.000009+00 
.000009+00 
.000009+00 
.000009+00 
. C)(30!)0£+00 
.000009+00 
. X)(X)0£+00 
.000009+00 
.0()0009+(30 
.000009+00 
.000009+00 
.000009+00 
. (30X309+00 
.000009+00 
.0(3(3009+00 
.000X9+00 
. 000009+00 
.OXOOE+X 
.X3X09+00 
.000009+00 
.00X09+00 
.XX09+00 
. XOOOE+OO 
.000X9+00 
.XXOE+X 
.OXX9+00 
.X(3(3(3E+00 
.OXXE+X 
.XfX30E+X 
.000009+00 
.XXOE+00 
.XOXE+OO 
. 000009+00 
.XOOOE+OO 
.000009+00 
.000X9+00 



-. 152309-01 
. 141889-15 
. 152309-01 
. 310199-01 
-.333429-01 
-. 166379-01 
. 160389-15 
. 166379-01 
.33342E-01 
-. 365139-01 
-. 179919-01 
. 180399-15 
. 179819-01 
.365199-01 
-.3S09-2E-01 
-. 192629-01 
.202859-15 
. 192629-01 
.5-90929-01 
-.415199-<)1 
-.204819-01 
.223489-15 
. 204819-01 
.415199-01 
-.438429-01 
-.21637E-01 
.245169-15 
.216379-01 
.438429-01 
-.460199-01 
-.227319-01 
.259239-15 
.227319-01 
.460199-01 
-.480929-01 
-.237629-01 
.268249-15 
.237629-01 
.480929-01 
-. 500199-01 
-.247319-01 
.293229-15 
.24731E-(3! 
.5(30199-01 
-.518429-01 
-.256379-01 
.321389-15 
.256379-01 
.513429-01 
-.535199-01 
-.264819-01 



-.405819-01 
-.402169-01 
-.405819-01 
-.416519-01 
-.501389-01 
-.491119-01 
-.487749-01 
-. 491119-01 
-.501389-01 
-.593189-01 
-.583329-01 
-.579999-01 
-.583329-01 
-.593189-01 
-.691399-01 
-.682069-01 
-.679009-01 
-.682(369-01 
-.691399-01 
-.795999-01 
-.787079-01 
-.784069-01 
-.787079-01 
-.795999-01 
-.906399-01 
-.89aOO£-(3l 
-.895269-01 
-.89a00£-01 
-.906399-01 
102269+00 
-. 10!46E+(3(3 
-.101199+00 
-. 101469+0(3 
-. 102269+00 
-. 114399+00 
-. 113649+00 
-.113409+00 
-. 113649+00 
-.114399+00 
-. 127049+X 
-. 126339+00 
-. 12609E+X3 
-. 126339+00 
-. 127049+X 
-. 140149+0(3 
-. 139499+00 
-.139289+00 
-. 13949E+X 
-. 140149+0(3 
-. 153709+00 
-. 153089+00 
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•58 


.2350C2t02 


. 600002+01 


. (100002+00 


. 3*012£~15 


-. 15288E+00 


35 


.2350C-2+02 


, 9Ck:i0-DE-01 


.OOOOOE*00 


.26*81E-01 


-. 15308E+00 


10? 


. 285002t02 


. 120002+02 


. COOOOE+00 


.535192-01 


-. 15370E+00 


ICI 


.3000CS+02 


. OCOOOE+OO 


. 000002+00 


- 55092E-01 


-. 1676*E+00 


:08 


.30000E+02 


.SCOOOE+01 


. OOOOOE+00 


-.27262E-01 


-. 16708£+(i0 


103 


.300002+02 


. 500002+01 


.OOOOOE+00 


.357*0E-15 


-. 16690E+00 


10* 


. 30000E*02 


.900002+01 


.000002+00 


.27262E-01 


-. 16708E+00 


105 


.30000E+02 


. 12000E+02 


. 000002+00 


.55092E-01 


-. 1675*E+00 


106 


.31500E+02 


.000002+00 


. 00(1002+00 


-. 56518E-01 


-. 181982+00 


107 


■ 3150oE+0ii 


. 30000E+01 


.OOOOOE+OO 


-.27981E-01 


-. 181*6E+00 


108 


.315002+02 


. 60000Et01 


. 000002+00 


.38587E-15 


-. 181282+00 


1C5 


.315002^)2 


. 900002+01 


. OOOOOE+OO 


.27981E-01 


-. 181*6E+00 


110 


.3i:6i02+02 


. 120C0E+02 


. (XiCOOS+00 


.56518E-01 


-. 18198E+00 


« A A. 


. 33000E+02 


.OOOOOE+00 


. OOOOOE+OO 


-.578*1E-01 


-. 1966*E^0 


- •» V 
* 


. 330002+02 


. 3C0C0E+01 


. OOOOOE+OO 


266372-01 


l%18E+00 


113 


. 330COE+02 


.60000E+0: 


. OOOOOE+OO 


.*109*E-15 


-. 19603E+00 


11* 


. 330002+02 


.900002+01 


. OOOOOE+OO 


.28637E-01 


-. 19618E+00 


115 


. 330002+02 


. 12000E+02 


.OOOOOE+OO 


.578*1£-01 


-. 1966*2+00 


ns 


. 3*5002+02 


. OOOCOE+00 


. OOOOOE+OO 


-.59027E-01 


-. 21163E+00 


117 


. 3*5002+02 


. 30000E+01 


. OOOOOE+OO 


-.29232E-01 


-.21121E+00 


115 


.3*5002+02 


.600002+01 


.000002+00 


.*2791E-15 


-. 21 106E+00 


113 


. 3*5002+02 


.900002+01 


.OOOOOE+OO 


.29232E-01 


-.2U21E+00 


120 


. 3*5002+02 


. 120002+02 


. OOOOOE+OO 


.59017E-01 


-.2U63E+00 


121 


.36000E+02 


. 000002+00 


.000002+00 


-.60090E-01 


-.22689E+00 


122 


.360002+02 


.300002+01 


. OOOOOE+OO 


-.2975*2-01 


-.22652E+00 


lOI 

aU.w( 


.36000E+02 


.60000E+01 


.OOOOOE+OO 


.**969E-15 


-.226*0£+00 


12* 


. 360002+02 


.9000(»£+01 


. OOOOOE+OO 


.•2975*E-01 


-.22652E+00 


125 


.3600CE+02 


. 12000E+02 


.OOOOOE+OO 


.60090E-01 


-.22689E+00 


12S 


.37500E+02 


.000002+00 


. (lOOOOE+OO 


-.61013E-01 


-.2*2*22+00 


127 


. 37500E+02 


.30000E+01 


.OOOOOE+OO 


-.3023*E-01 


-.2*2082+00 


CO 


. 3750O2+02 


. 600002+01 


. (iOOOOE+00 


. *63872-15 


-.2*1972+00 


129 


. 37500E+02 


. 900002+01 


.OOOOOE+OO 


.3023*E-01 


-.2*208E+00 


130 


.375002+02 


. 120002+02 


. 00(xDO£+(Ki 


.61013E-01 


-.2*2*22+00 


i 7* 

« W X 


.390CCE+02 


.OOOOOE+00 


. OOOOOE+OO 


-61831E-01 


-.25815E+00 


132 


. 39000E+02 


.300002+01 


. C0(i00E+00 


-.306*52-01 


-.25786E+00 


133 


.390002+02 


.60000E+01 


. OOOOOE+OO 


.*72012-15 


-. 25777E+00 


13* 


.39(1002+02 


. 900002+01 


. 000(102+00 


. 306A5E-01 


-. 25786E+IX) 


13'5 


.390002+02 


. I2000E+02 


.OOOOOE+OO 


.618312-01 


- 25815E+00 


136 


. *05002+02 


. OOOOOE+00 


. 00(XiOE+00 


-.62*92E-01 


-.27*08E+00 


137 


. *05002+02 


.30000E+01 


.OOOOOE+OO 


-.309972-01 


“. 27383E+00 


128 


. *05002+02 


.faOOCOE+Ol 


. OOOOOE+OO 


.*81612-15 


-. 27371S+00 


139 


. *0500E+02 


.90000E+01 


.000002+00 


.30997E-01 


-.27383E+00 


1*0 


. *05002+02 


. 12000E+02 


. OOOOOE+OO 


.62*92£-01 


-. 27*08E+00 


1*1 


. *2000E+02 


.OOCOCE+00 


.OOOOOE+OO 


-.630**E-01 


-.29016E+00 


1*2 


. *200o£+0c‘ 


. 300002+01 


. OOOOOE+(X» 


-.31295E-01 


-.2899*E+00 


1*3 


.*2000E+02 


.60000E+01 


.OOOOOE+OO 


.*8999E-15 


-.28986E+00 


1** 


. *2000c+'.*2 


. 900002+01 


.OOOOOE+OO 


.31295E-01 


-.2899*2+00 


1*5 


.*20002+02 


. 12000E+02 


. OOOOOE+OO 


.630**E-01 


-.290162+00 


M 


. *3500E+02 


. 000002+00 


.OOOOOE+OO 


-.63*llE-0l 


-.3063*2+00 


1*7 


.*35002+02 


.30000E+01 


.OOOOOE+OO 


-.315**E-01 


-.306182+0(1 


1*8 


.*35002+02 


.600002+01 


. OOOOOE+OO 


.5*901E-15 


-. 306102+00 
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IAS 


. 43500E-i-02 . SOOOOE+Cl 


. OOOOOE-^00 


. 315445-01 


-. 306185+00 


150 


. 43500E+02 . 12000E+02 


. 000005+00 


.634115-01 


-. 306345+00 


I5i 


. A5000E+02 . OOOOOE+00 


. 00CK)0E+0O 


-.635495-01 


-. 322575+00 


152 


. A5000Et 02 . 30(iOOE+0 1 


. (k)000£+00 


-.3175(6-01 


-. 322495+00 


153 


.A5000E+02 .60000E+01 


.OOOOOE+00 


.61189E-15 


-.32244E+00 


15A 


.450005+02 .900005+01 


. (I0C005+00 


. 317505-(il 


-. 32249E+00 


155 


. 450005+02 . 120(k5E+02 


. OOOOOE+OO 


.53649E-01 


-. 322575+00 


15c 


.465<i0E+02 .COOCOE+<)0 


. OOCkOOS+OO 


-. 63813E-01 


-. 336735+0(1 


157 


.455005+02 .30000E+01 


.000005+00 


-.318785-01 


-. 338845+00 


158 


. 45500E+02 . 60(K505+0 1 


. fXiOOOE+00 


.654345-15 


-. 339125+00 


15S 


.465005+02 .900005+01 


.0000(15+00 


.313785-01 


-.338845+00 


150 


. AS-SO'JEkiE . llfOoOE+02 


. 000005+00 


.638135-01 


-. 338735+00 


151 


.480005+02 .000005+00 


. OOOCKiE+OO 


-.638685-01 


-.354775+00 


ro 


. 48000E+02 . SOtXKiE+0 1 


. COOOOE+00 


-.318235-01 


-. 355075+00 


153 


.48000EHI2 . 6000(€+01 


.000005+00 


.669395-15 


-.356305+00 


ISA 


. 4300CE+02 . 9C!(K;i05+0 1 


. OCiOCiOE+OO 


. 318235-01 


-. 355075+00 


165 


. 48000E+02 . 1200CE-K12 


.000005+00 


. 658685-01 


-.354775+00 



CONTAINT5S DftXS L 


EL5?^5N^ 1 








P. G. 


X 


Y EPSX 


EPSY 6AMXY SISX 3I6Y 

SIGl SIG2 


ThUXY 

TflUpiAX 


i5"A 


1 


. 150005+01 


.000005+00 -.264255-02 


.51777E-03 -.445555-03 -.804185+02 -.457145+01 

-.41963E+01 -.807935+02 


-.534675+(il 

.382995+02 


-66. 0 


2 


.3000(6+01 


.3C1000E+01 -.116945-02 


.268545-03 -. 107565-03 -.351145+02 -.122085+00 

-.745325-01 -.351615+02 


-. 129075+01 
. 17543E+02 


-87.5 


3 


. 15000E+01 


.300005+01 -.13192E-02 


.187475-03 -.487305-03 -.407145+02 -.45543E+01 

-.363035+01 -.416385+02 


-. 585565+(il 
. 19(i04£+02 


0 

1 



CONTAINTEB DANS L 


ELEl'lENT 


c 










p.e. 


X 


Y 


£PSX 


EPSY GAMXY SIGX 


SIGY 


TAUXY 


TETh 










Sibi 


SIG2 


TAuNAX 




1 


.450005+01 


.000005+00 


-.239715-02 


.594405-03 -.505585-04 -.719535+02 


-. 156265+00 


-. 60663E+00 


-65.5 










-. 151155+00 


-. 719585+02 


. 55903E+02 




0 


.600005+01 


. 300005+01 


-. 1 16225-02 


.293045-03 -.274465-03 -.348475+02 


.794685-01 


-. 32935E+01 


-84. 7 










.387325+00 


-. 35155E+02 


. l7771E+<j2 




3 


.450005+01 


.300005+01 


-. 12279E-02 


.305075-03 -.283495-03 -.368515+02 


-. 606185-01 


-.34019E+01 


-64.8 










.251305+00 


-. 37163E+02 


. 187075+02 





CQNTAINTES DANS L 
P.G. X 


ELEMENT 

Y 


3 

EPSX 


EPSY GAMXY SIGX SIGY TAUXY 


TETA 


I .75000E+01 


. OOOCK6+(tO 


-.224325-02 


SIBl SIG2 TAOMAX 

.558445-03 -.509155-04 -.673145+02 -.75302E-01 -.610965+00 


-69.5 


2 .900005+01 


.30000E+01 


-. 107355-02 


-.697515-01 -.673195+02 .336255+02 
. 270375-03 -. 28154E-03 -. 321885+02 . 642315-01 -. 33785E+01 


-84.1 



.4143AE+00 ■•32538E+02 tlBATSE+OS 
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3 . 75000E+0i 



.30000E+(ii UAOOE-02 



.28S:0E-03 -.28C56E-03 -.3A177E+02 .98918E-0I -.33667E+01 

. A26A8E+00 34504E+02 . 17465S+02 



I 

I 

- 64. 4 



CONTflINTES DANS L ELEJ^ENT 4 



3.B. 


X 


Y £PSX 


EASY GAi'.XY SIGX SI3Y 

SIGl SIB2 


TAUXY 

TAUMAX 


TETA 


i 


. 10500E+(i2 


.OOOOOE+00 -.20317E-02 


.51677E-03 -.57160E-04 -.62479E+02 -.11664E+00 

-.10910E+00 -.62486E+02 


-.6S592E+00 
. 31 1S9E+02 


-69.4 


2 


. 12000E+02 


.30000E+01 -.98726E-03 


.24843E-03 -.28138E-C3 -.29605E+02 .51747E-01 

.43134E+00 -.29984E+02 


-. 33766E+01 
. 15208E+02 


-63. 6 


3 


. 10500E+02 


.300CI0E+01 -. 10555E-02 


.25621E-03 -.28314E-03 -.31647E+02 .74499E-01 

.43434E+00 -.32006E+02 


-.33977E+01 
. 16220E+02 


-64. 0 



C0NTAINTE3 DANS L ELEi’tENT 5 

P.G. X Y E?SX EPSY GAi>!XY SIGX SIGY TAUXY 7ETA 

SIGl SIG2 TAU.MAX 

1 .13500E+02 .OOOOOE+00 -.19163E-02 .47498E-03 -.59055E-04 -.57522E+02 13088E+00 -.70366E+00 -63.3 

-. 12213E+00 -. 57530E+02 .26704E+02 

2 .15000E+02 .30000E+01 -.90316E-03 .22730E-03 -.28119E-03 -.27083E+02 .48224E-01 -.33743E+01 -63.0 

.461 5SE+C0 -. 27496E+02 . 1 3979E+02 

3 .13500E+02 .30000E+01 -.97190E-03 .24497E-03 -.2S399E-03 -.29141E+02 .63777E-01 -.34076E+01 -83.4 

.45616E400 -.29533E+02 .14995E+02 



CONTAINTES DANS L ELE^iE^rr 
P.G. X Y 


6 

EPSX 


EPSY 


GAMXY 


SIGX 


SISY 


TAUXY 


TETA 










SIGl 


SIG2 


TAUWAX 





1 .16500E+02 .OOOOOE-KiO -.17499E-02 .43328E-03 -.59506E-04 -.52531E+02 -.13437E+00 -.71407E+C0 -89.3 

-. 12464E+00 -. 52541E+02 . 26208E+02 

2 . 18000E+02 . 30000E+01 -. 81965E-03 . 20640E-03 -. 281 14E-03 -. 24578E+02 . 47407E-01 -. 33736E+01 -62. 3 

. 50123E+(iO -. 25032E+02 . 12766E+(i2 

3 . 16500E+02 .300002+01 -. 88851E-03 . 22403E-03 -. 26419E-03 -. 2664(>E+(i2 . 61003E-01 -. 34103E+01 -62.8 

. 48969E+00 -. 27069E+02 . 13779E+02 



CGNTAINTES DANS L ELEMB^ 7 



P.G. 


X 


Y EPSX 


EPSY GANXY SIGX 


SIGY 


TAUXY 


TETA 








SIGl 


SIG2 


TAUKAX 




1 


. 19500E+02 


.000(K)E+00 -. 15833E-02 


.39161E-03 -.59604E-04 -.47533E+02 


-. 13514E+00 


-.71525E+00 


-69. i 








-. 12435E+00 


-.47544E+02 


.23710E+02 




2 


.21000E+02 


.30000E+01 -.73628E-03 


.18555E-03 -.28112E-03 -.22077E+02 


.47236E-01 


-. 33735E+01 


-81.5 








.55019E+00 


-.22580E+02 


.11565E+02 




3 


. 19500E+02 


.30000E+01 -.80516E-03 


.20318E-03 -.28424E-03 -.24140E+02 


.60378E-01 


-.34109E+01 


-82. 1 








.53193E+()0 


-.24611E+02 


. 12572E+02 
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CO\"flINTES DftNS L £L£*'£NT 8 



P.G. 


X 


Y EPSX 


EPSY GAMXY SIGX SIGY TAUXY 

SIGl SIG2 TAUMAX 


TETA 


1 


.22500E+02 


.OOOOOE+00 -. 14167E-02 


.349948-03 -.59628E-04 -.42534E+02 -. 13527E-HOO -.71554E+00 

-. 12320E+00 -. 42546E+02 . 2121 lE+02 


-69.0 


2 


.24000E+02 


.30000E+01 -.652948-03 


. 16471E-03 -. £81 12E-03 -. 19577E+02 . 47££7E-<)1 -. 33734E+01 

.610958+00 -.20140E+02 .105768+02 


-80.5 


3 


.22500E+02 


.300002+01 -.72183E-03 


.182348-03 -.28425E-03 -.21640E+02 .60248E-01 -.54110E+0i 

.583788+00 -. 22163E+02 .11374E+<)2 


-61.3 



CCMTAINTES DANS L ELEMENT 9 



P.G. 


X 


Y EPSX EPSY GAMXY SIGX SIGY TAUXY 

SIGl SIG2 TAUMAX 


' w ■ H 




.25500E+02 


.000002+00 -. 12500E-02 .30827E-03 -.596478-04 -.37534E+02 -. 13516E+00 -.71576E+00 

-. 12146E+00 -. 37547E+02 . 13713E+02 


-66. 9 


0 


. 270008+02 


.30000E+01 -.56961E-03 . 14388E-03 -.28112E-03 -. 17077E+02 .47355E-01 -.S3735E+0I 

.687978+00 17717E+02 .9202SE+01 


-79. £ 


3 


.25500E+02 


.300008+01 -.63850E-03 . 16151E-03 - 28424E-03 -.19I40E+02 . 60238E-01 -.34109E+01 

.64818E+00 -.197288+02 .10188E+02 


-60. c 



CONTAINTES DAN'S L aEMENT 10 

P.G. X Y EPSX EASY GAMXY SIGX SI8Y TAUXY ^T/j 

SIGl SIG2 TAUMAX 

1 .2B500E+02 .OOOOOE+00 -.10833E-02 .26663E-03 -.59718E-04 -.32533E+02 13443E+00 -.7i66EE^0 -S5.7 

-.11858E+00 -.32549E+02 . 16215E+02 

£ .300008+02 . 30000E+0i -.48630E-03 . 12306E-03 -.28113E-03 14577E+02 .480ilE-0i -.33735£+0i -77.6 

.78867E+00 -. 1531SE+02 .80531E+01 

3 .28500E+02 .30000E+01 -.555I9E-03 . 14068E-03 -.28422E-03 -. 16641E+02 .603I6E-01 -.34106E+01 -78.9 

.72996E+00 -. 17310E+02 .-902018+01 



CONTAINTES DANS L ELEMENT 11 

P.G. X Y EPSX EPSY GAMXY SIGX SiGY TAUXY TETA 

SIGl SIG2 TAUMAX 

1 .31500E+02 .OOOOOE+00 -.91654E-03 .22504E-03 -.60055E-04 -.27529E+02 -. 13093E+00 -.72066E+00 -86.5 

-. 1 1 199E+00 -. 27548E+02 . 137182+02 

2 . 33000E+02 . 30000E+01 -.403068-03 . 10236E-03 -.28116E-03 -. 12079E+02 . 51108E-01 -.33739E+01 -75.5 

. 92639E+00 -. 12954E+02 . 69403E+01 

3 .31500E+02 .30000E+01 -.47197E-03 . 1I989E-03 -.28409E-03 -. 14144E+02 .50720E-01 -.34090E+01 -77.2 

. 83650E+00 -. 14920E+02 . 73780E+01 



CONTAINTES DANS L ELEMENT 12 

P.G. X Y EPSX EPSY GAMXY SIGX SIGY TAUXY TETA 
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1 .24500Ei-0£' .00000£+<50 - 74941E-03 . i8376£-03 -.61633E-04 

£ .36000E+02 .30000E+01 -.32015E-03 .82072E-04 -.28130E-03 

3 .34500E+02 .30000E+01 -.38916E-03 .99246E-04 -.28348E-03 

CONTflINTES DANS L B.£I^ENT 13 

P.G. X Y E?3X EPSY SAMXY 

1 .37500E+02 .(KXiOOE+00 -.58057E-03 . 14368E-03 68621E-04 

2 .39000E+02 .30000E+01 -.23872E-03 .63479E-04 -.28189E-03 

3 .37500E+02 .30000E+01 -.30820E-0S .79265E-04 -.28089E-03 

CONTflINTES DANS L ELEMENT 14 

P.G. X Y E?SX EPSY SftMXY 

1 .40500E+02 .OOOOOE+00 -.40429E-03 . 10677E-03 -.95552E-04 

2 .42000E+02 .30000E+01 -. 16265E-03 .49449E-04 -.28361E-03 

3 .40500E-K>2 .30000E+01 -.23462E-03 .61-83CC-04 -.27178E-03 

CONTflINTES DANS L ELEMENT 15 

P.G. X Y EPSX EPSY GAMXY 

1 .43500E+02 .OOOOOE+00 -.20152E-05 .60955E-04 -. 15722E-03 

2 .45000E+02 .30000E+01 -.94911E-04 .21937E-04 -.28073E-03 

3 .43500E+02 .30000E+01 -.18016E-03 .49195E-04 -.2Gil2E-03 

CONTflINTES DANS L ELEMENT 16 

P. G. X Y EPSX EPSY GflMXY 

1 .46500E+02 .OOOOOE+00 - 731i2E-04 . 11770E-03 -.50210E-04 



SIGi SIG2 

-.22511E+02 -.11486E+00 
- 90463E-01 -.22535E+02 
-.95884E+01 .65076E-01 
.11284E-KH - 10652E+02 
-.li659£+02 . 62603-E-01 
.97830E+00 -.12575E+02 



SIGX SIGY 

SIGI SIG2 

-. 17429E+02 -.46786E-01 
- 78630E-02 -. 17468E+02 
-71313E+01 .12156E+00 
.1454SE+01 -.84640E+01 
-.92285E+01 .70860E-01 
.11641E+0I -.10322E+02 



SIGX SIGY 

SIGI SIG2 

-.I2083E+02 .18232E+00 
.2885-9E+00 -.12190E+02 
-.48092E+01 .28117E+00 
.19858E+01 - 65138E+01 
~. 70132E+01 . I0162E+00 
.13704E+01 - 82819E+01 



SIGX - SIGY 
SIGI SIG2 

-.59610E+01 .33779E+00 
.85964E+00 -.6A829E+01 
-.28617E+01 -.57312E-01 
.21894E+01 -.5108AE+01 
-. 53717E+01 . 132^+00 
.15512E+01 -.67899E+01 



SIGX SIGY 

SIGI SIG2 

-.13979E+01 .31816E+01 



TflUMflX 

.75960E+00 -88.1 

.11222E+02 

'. 33756E+01 -72.5 

.58900E+01 

•.3401SE+01 -74.9 

.677S5E+01 



TflUXY TETA 

TflUMflX 

. 82345E+00 -87. 3 

.87299E+0! 

. 33827E+01 -68. 5 

. 49592E+01 

'. 33706E+01 -Id. U 

.57428E+CI1 



TflUXY TETh 

TflUMflX 

.il466E+01 -84.7 

.62391E+01 

•. 34033E+01 -63. 4 

. 42498E-H)! 

.32614E+01 -68.7 

.48261E+01 



TflUXY tetA 

TflUMflX 

.18866E+01 -74.5 

.S6713E-KU 

•. 33688E+01 “56. 5 

.36489E+01 

.31334E+01 -65.6 

.41705E+01 



TflUXY TETA 

TflUMflX 

. 60253E+00 -82. 6 
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.3£59£E+0i -.1A759E+01 .23677E+01 

2 .480002+02 . 30000E+01 . 731i£E-0A -.25479E-03 13257E-03 .301262+00 -.75684E+0i 15S08E+01 -li.O 

.610682+00 -.78778E+01 .42442E+01 

3 .46500E+02 . 300002+01 .22904E-17 -. 190112-03 -.25348E-03 -. 15209E+01 -.60834E+01 -.304172+01 -26.6 

. 131452-12 -. 760432+01 . 380212+01 



CONTflINTES DANS L ELEMENT 17 



P.G. 


X 


Y 


EPSX 


EPSY GAMXY SIGX 


SIGY TAUXY 


T£'!’fl 










SIGl 


SIG2 TflUMAX 




1 


. 150002+01 


,300002+01 


-.115382-02 


.635652-04 -.322662-03 -.36414E-h02 


-.719652+01 -.33719E+-01 


-52.6 










-. 669212+01 


-. 36918E+02 . 151 13E-K12 




2 


. 150002+01 


.600002+01 


.945482-17 


.635652-04 -.195532-03 .508522+00 


.203412+01 -.234642+01 


-54. 0 










.373862+01 


-. 11959E+01 .24672E+-:il 




3 


.000002+00 


.300002+01 


-. 115382-02 


.OOCKiOE+OO -.107562-03 -.369222+02 


-.923062+01 -.129072+01 


-87.3 










-. 917(i6E+<j! 


- . 369822+02 . 1 3906E+02 




CONTflINTES DANS L 


ELEMENT 


18 








P.S. 


X 


Y 


EPSX 


EPSY GAMXY SIGX 


ST GY TfiUX Y 


T2TA 










SIGl 


SIG2 TflUMAX 




1 


.450002+01 


. 300002+01 


-. 123762-02 


.312622-03 -.293732-03 -.371022+02 


.103212+00 -.352482+01 


-54.6 










.434212-KiO 


-. 374332+02 . 189342+02 




2 


.450002+01 


.600002+01 


. 100512-16 


-.176822-04 -.489972-03 -.14146E+(iO 


-.56584E+00 -.58796E+01 


-44. 0 










.552982+01 


-. 6237 1 E+0 1 . 53834E+0 1 




3 


.300002+01 


.300002+01 


-. 123762-02 


.288542-03 -.274462-03 -.372942+02 


-.667312+00 -.329352+01 


-84. 9 










-. 37352E+CK) 


-. 37588E+02 . 18607E+(32 




CONTflINTES DANS L ELEMENT 


19 








P.G. 


X 


Y 


EPSX 


EPSY GAMXY SIGX 


SIGY TAUXY 


T2TA 










SIGl 


SIG2 TflUMAX 




1 


.750002+01 


. 300002+01 


-.115112-02 


.289752-03 -.278332-03 -.345172+02 


.632882-01 -.334002+01 


-84.5 










.382932+00 


-. 348372+02 .1761 02+02 




2 


.750002+01 


.600002+01 


. 105002-16 


.430412-06 -.493782-03 .344332-02 


. 137732-01 -. 59253E+(il 


-45.0 










.593392+01 


-.591672+01 .592532+01 




3 


.600002+01 


.300002+01 


-.11511E-02 


.293042-03 -.281542-03 -.344912+02 


.168502+00 -.33785E+01 


-84.5 










.494762+00 


-.348172+02 .176562+02 




CONTflIl 


NTES DANS L 


ELEMENT ; 


20 








P.G. 


X 


Y 


EPSX 


EPSY GAMXY SIGX 


SIGY TAUXY 


TETA 










SIGl 


SIG2 TflUMAX 





1 .105002+02 .300002+01 -.106402-02 .267862-03 -.282202-03 -.319062+02 .594922-01 -.338642+01 -84.0 

.414312+00 -. 3226(€+02 . 163372+02 

2 .105002+02 . 600002+01 . 107642-16 -.247262-05 -.481402-03 -. 197812-01 -.791242-01 -.577682+01 -44.9 

.572742+01 -.582632+01 .577692+01 
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3 . 90000E+01 .30000E+01 -105A0E-02 .27037E-03 -.E8138E-03 -.SlSflEE+OE . 13977E-i-00 -.33766E+01 -8A.0 

. A3191E-K»0 32238E-KI2 . 16355E+0E 

CONTflINTES DfiNJS L ElEKENT 31 



X Y 


EPSX 


EPSY GflMXY SIGX SIGY TflUXY 

SIGl SIG2 TflUMflX 


TETft 


. 13500E+02 . 30000E+(il 


-.97960E-03 


.2A677E-03 -.28375E-03 -.29373E+02 .59921E-01 -.3A050E+01 

.AA869E+00 -.29752E+02 . 15105E+02 


-63.5 


.13500E+02 .60000E+01 


. 12890E-16 


-.37887E-05 -.A77A9E-03 -.30310E-01 -.1212AE-K)0 -.57299E-K»1 

.565A3E-K)1 -.580592+01 .5730HE+O1 


-AA.6 


.12000E+02 .30000E+01 


-.97960E-03 


.2A8A3E-03 -. 28119E-03 -. 293G0E+O2 .11298E+00 -.337A3E+01 

.A9A36E+00 -. dSTAlE+TiE .15118E+02 


-63.6 



CONTflINTES DfiNS L ELEMENT 22 

P.G. X Y £?SX EPSY BRMXY SIGX SIGY TfluXY TETft 

SIGl SIG2 TflUMftX 

1 . 16500E+02 . 30000E+01 39602E-03 .22588E-03 -.28A1AE-03 26866E+02 . 60136E~01 3A097E+01 ~6£. 5 

.A8520E-KK) -.27291E+02 . 13888E+02 

2 .16500E+02 . 60000E-KH . 13957E-16 -.A1315E-05 -A7656E-(i3 -.33052E-01 13221E+00 -.57187E-KH -AA.8 

.56363E-KH - 58015E+01 .57189E+01 

3 .15000E+02 . 30000E+01 - 89602E-03 . 22730E-03 -.28I1AE-03 - 2685AE+02 . 10537E+00 33736E-KH -83.0 

. 521 12E+00 27270E+02 . 13696E+02 



CONTflINTES DANS L ELEMENT 23 

P.G. X Y EPSX EPSY • GflMXY SIGX SIGY TflUXY TETft 

SIBl SIG2 TflUKflX 

1 .195(»0E+02 . 30000E+01 -.81263E-03 . 2050AE-03 - 28A23E-03 -.2A36AE+02 . 60195E-01 -.3A107E+01 -82.2 

. 52755E+00 -. 2A831E+02 . 12679E-Kt2 

2 .19500E-K)2 . 60000E+01 . 1A105E-16 -.A2089E-05 -. A7635E-03 - 33671E-01 -. 13A68E+00 -.57162E-K»1 -AA.7 

.56323E+01 -.58006E+01 .5716AE+01 

3 . 1800CC+02 .30000E+01 -. 81263E-03 .206A0E-03 -. 23112E-03 -.2A353E+02 . 10360E+00 -. 33735E+01 -82.3 

.56039E-KK) -.2A810E-h)2 . 12685E+02 



CONTflINTES DANS L ELEMENT 2A 

P.G. X Y EPSX EPSY GflMXY SIGX SIGY TflUXY TETfl 

SIGl SIG2 TflUMflX 

1 .22500E+02 . 30000E+01 - 72929E-03 . 18A20E-03 - 28A2AE-03 -.2186AE+02 . 60219E-01 -3A109E+01 -81. A 

. 5786AE-K10 -. 22382E+02 . 1 1 A80E+02 

2 . 22500E+0S .60000E+01 .769A1E-17 -.A2250E-05 -A7631E-03 -.33800E-01 -. 13520E+00 -.57157E+01 -AA.7 

.5631AE+01 -.5800AE+01 .57159E+01 

3 . 21000E+02 . 30000E+01 -. 72929E-03 . 18555E-03 -. 281 12E-03 -. 21853E+02 . 10322E-K»0 -. 3373AE+01 -81.5 

. 6098AE+00 -. 22359E+02 . 1 1 A85E+02 
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CONTAINTES DANS L ELEMBIT £5 

P.B. X Y EPSX EPSY GflMXY 

1 .25500E+02 .30000E+01 -.64595E-03 . 16337E-03 -.28425E-03 

£ .£5500E+02 . 60000E+01 . 17713E-16 -.42267E-05 -.47629E-03 

3 .24000E+02 .30000E+01 -.64595E-03 . I647IE-03 -.28112E-03 

CONTflINTES DANS L ELEMENT 26 

P.G. X Y EPSX EPSY GflMXY 

1 .28500E+02 .30000E+01 -.56263E-03 . 14255E-03 -.28423E-03 

2 .28500E+02 . 60000E+0i . 12006E-16 -.42187E-C>5 -.47625E-03 

3 . 27000E+02 . 30000E+01 -.56263E-03 . 14388E-03 -.28113E-03 

CDNTflINTES DANS L ELEMENT 27 

P.G. X Y EPSX EPSY GflMXY 

1 .31500E+02 .30000E+01 -.47934E-03 . 12177E-03 -.28415E-03 

2 .31500E+02 . 60000E+01 .17847E-16 -41771E-05 -.47605E-03 

3 . 30000E+02 . 30000E+01 - 47934E-03 . 12308E-03 -.28116E-03 

CONTflINTES DANS L ELEMENT 28 

P.G. X Y EPSX EPSY GflMXY 

1 .34500E+02 .30000E+01 -.39623E-03 . 10117E-03 -.28380E-03 

2 .34500E+02 .60000E+01 . 12916E-16 -.39840E-05 -.47515E-03 

3 . 33000E+02 . 30000E-KI1 -. 3’9623E-03 . 10236E-03 -.28130E-03 

CONTflINTES DANS L ELEMENT £9 

P.G. X Y EPSX EPSY GflMXY 



SIGX 


SIGY 


SIGi 


SIG2 


“. 19364E+02 


.60277E-01 


.64185E+00 


-. 19945E+02 


- 33814E-01 


-. 13525E+00 


.56312E+01 


-. 56002E+01 


-. 19353E+02 


. 10316E+00 


.67148E-K10 


-. 19921E+02 



SIGX 


SIGY 


SIBl 


SIG2 


-. 16864E+02 


.60545E-01 


.72206E+00 


-. 17525E+02 


-.33749E-01 


-. 13500E+00 


.56308E-KU 


-.579962+01 


-.16853E+02 


. l0323E+(i0 


.74976E-KI0 


-. I7500E+02 



SIGX 


SIGY 


SIGI 


SIG2 


-. 14365E+02 


.618152-01 


.82716E-K)0 


-. 15130E+02 


-.334I7E-01 


-. 13367E+00 


.56293E+01 


-. 57%4£+01 


-. 14354E+02 


.103672+00 


.85224E+00 


-. 15103E+02 



SIGX 


SIGY 


SIGI 


SIG2 


-. 11870E+02 


.67654E-01 


.97085E+00 


-. 12773E+02 


-.31872E-01 


-. 12749E+00 


.562S3E+01 


-. 57817E+01 


-1186(€+02 


. 10573E+0C) 


.992302+00 


-. 12747E+02 


SIGX 


SIGY 



TflUXY 

TflUMAX 


TETfl 


-.341092+01 
. 10293E+02 


-80. 3 


-.57155E+01 


-44.7 


.57157E+01 




-. 33735E+<)1 
. 10296E+02 


-80.4 


TflUXY 

TfiUMflX 


"ETA 


-.34108E+01 

.91237E+01 


-79.0 


-.57150E+01 

.57152E+01 


-44.7 


-.337S5E+01 

.912472+01 


-79.2 


TflUXY 

TAUMflX 


TETfl 


-.34098EKU 

.79786E+01 


-77. 5 


-.571262+01 

.57129E+01 


-44.7 


-. 33739E+01 
.79776E+01 


1 

cn 


TflUXY 

TflOMflX 


TETfl 


-.34056E+01 

.68720E+01 


-75.1 


- 57018E+01 
. 57020E+01 


-44.8 


-. 33756E+01 
.68697E+01 


-75.3 


TflUXY 


TETfl 
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1 .37500E+02 .30000E+01 -.3I591E-03 .01368E-O4 

2 .37500E+02 . 600002+01 .7AA17E-17 -31501E-05 

3 .36000E+02 .30000E+01 -.31391E-03 .02O72E-OA 

CONTAINTES DANS L ELE^IENT - 30 
P.G. X Y EPSX EASY 

1 .A0500E+02 .500002+01 -.23A89E-03 .6A2A5E-0A 

2 .A0500E+02 . 600002+01 .599052-17 -. 17029E-06 

3 .390002+02 .300002+01 -.23A89E-03 .63A79E-0A 

CONTAINTES DA?4S L EL2!^ENT 31 

3.S. X Y EPSX EASY 

1 .A3500E+02 .30000E+01 -.166062-03 .A8A77E-0A 

2 .A3500E+02 .600002+01 .A0635E-16 .3536AE-05 

3 .A2000E+02 .30000E+01 -. 16606E-03 .A9AA9E-0A 

CONTAINTES DANS L ELEMENT 32 
P.G. X . Y EPSX EPSY 

1 .A6500E+02 .300002+01 -.851A7E-0A -.0002AE-OA 

2 .A6500E+02 .600002+01 . 191662-16 -. 100562-03 

3 .A5000E+02 .300002+01 -.051A7E-OA .2I937E-0A 

CONTAINTES DANS L ELEMENT 33 

P.G. X Y EPSX EPSY 

1 .15000E+01 .60000E+01 .9A5A0E-17 -.63565E-0A 



SIGl SIG2 TAUMAX 

.2822AE-03 - 939A3E+01 .92A67E-01 -.33868E+0I -72.2 

.11775E+01 -.10A79E+02 .5828AE+01 
. A71 152-03 -. 252012-01 -. 100002+00 -. 56530E+O1 -AA. 8 
.559092+01 -.57169E+01 .565392+01 
•. 201092-03 -. 93086E+O1 . 1 1501E+00 -. 33027E+O1 -72. 5 

.119612+01 -10A70E+02 .563292+01 



GAMXY SIGX SIGY TAUXY TETA 

SIGl SIG2 TAUMAX 

■.276A7E-03 -.700252+01 . 17672E+00 -.33177E+01 -6.0. S 

.1A751E+01 -.83009E+01 .A080OE+O1 
.A556AE-03 -.13623S-02 -.5AA93E-02 -.5A677E+01 -A5.0 

.5A6A2E+01 -.5A711E+01 .5A677E+01 
.263612-03 -.700062+01 . 152252+00 -. 3AXi33E+01 -60.2 

.151172+01 -.03S0OE+O1 .A9390Z+O1 



GAMXY SIGX SIGY TAUXY TETA 

SIGl SIG2 TAUMAX 

.266732-03 -.A9262E+01 .^2277E+00 -.32008EA01 -6A.A 

.17560E+<il -.6A59AE+01 .A1077E+01 

.A201AE-03 .202912-01 . 11316E+00 -.50A17E+01 -A5.2 

.511262+01 -.497112+01 .504192+01 

.280732-03 -.A918AE+01 .253072+00 -.336002+01 -63.8 

.191472+01 -.657922+01 .424692+01 



GAMXY SIGX SIGY TAUXY TE^A 

SIGl SIG2 TAUMAX 

.413472-03 -.343532+01 -.352352+01 -.496162+01 -44.7 

.140242+01 -.944132+01 .496102+01 

.604372-03 -.004522+00 -.321012+01 -.021252+01 -40.8 

.620942+01 -.103122+02 .030072+01 

.132572-03 -.254922+01 .2M>799E-0i -. 159002+01 -64.5 

.780702+00 -.330922+01 .20450E+<)1 



GAMXY SIGX SIGY TAUXY TETA 

SIGl SIG2 TAUMAX 

. 195532-03 -. 500522+00 -. 203412+01 -. 234642+01 -36. 0 
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, 11955E+01 -.37386E+01 .i4672E+0i 



C0NTAIN7ES D«^'S L ELEMENT 34 

P.G. X Y 



EPSX 



EPSY 



(3AMXY 



CONTftINTES DANS L ELEMENT 35 
P.G. X Y EPSX 



EASY 



GAMXY 



CONTAINTES DANS L ELEMENT 
P.G. X Y 



3G 



EPSX 



EPSY 



GAMXY 



CONTAINTES DANS L ELEMENT 37 
P.G. X Y EPSX 



EPSY 



GAMXY 



.35414E+02 


.71965E+01 -.387192+01 


-7.4 


.36918E+<i2 


.669212+01 .l51l3S+i)2 




.36922E+02 


.92306E+01 -12907E+01 


-2.7 


. 35982E+02 


.91706E+01 .139062+02 




SIGX 


SIGY 


TAUXY 


T2TA 


SIGl 


SIG2 


TAUMAX 




. 14146E+00 


.565842+00 -.587%£+01 


-46. 0 


. 62371 E+01 


-. 55298E+01 . 56834E+01 




.37I02E+02 


-.10321E+00 -.35248E+01 


-5.4 


.37433E+02 


-. 43421E+00 . 18934£+(i£ 




.37294E+02 


.66731E+00 -. 3'2935E+0l 


”5. 1 


. 575882+02 


. 37352E+00 . 186072+02 




SIGX 


SIGY 


TAUXY 


T2TA 


SIGl 


SIG2 


TALiMAX 




-.34433E-02 


-.13773E-01 - 59253E+01 


-45.0 


.59167E+01 


-.59339E+01 .592532+01 




.34517E+02 


-.63288E-01 -.33400E+01 


-5. 5 


.34837E+()2 


- 38293E+00 .17610E+02 




.34491E+02 


-. 1685C€+00 - 33785E+01 


-5.5 


.34817E+02 


-.494762+00 .176562+02 




SIGX 


SIGY 


TAUXY 


TETA 


SIGl 


SIG2 


TAUMAX 




. 19781E-01 


.79I24E-01 -.57768E+01 


-45.1 


.58263E+01 


-.57274E+01 .577692+01 




.31906E+02 


-. 59492E-01 -. 33864E+01 


-6.0 


.322602+02 


-. 41431E+00 . 163S7E+02 




.3I866E+02 


- 13977E+00 - 33766E+01 


-6.0 


.32238E+02 


-. 49191E+00 . 16365E+02 




SIGX 


SIGY 


TAUXY 


TETA 


SIGl 


SIG2 


TAUMAX 





1 .13500E+02 .60000E+01 .i2B90E-16 .37887E-05 -.47749E-03 .30310E-01 .12124E+00 -.57299E+01 -45.2 

.58059E+01 -.56543E+01 .57301E+01 

2 .13500E+02 . 90(K)0E-Kll .97960E-03 - 24G77E-03 -.28375E-03 . 29573E+02 - 59921E-01 -.34050E+01 -6.5 

.29762E-KI2 -.44869E+00 .151052+02 
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3 .12000E+02 .90000E+01 .97S60E-03 -.24843E-03 -28119E-03 . 29560E+02 1I298E+00 - 33743E+01 

. 29741E+02 49436E+00 . 151 182+02 

CONTflINTES DANS L ELEMENT 38 



P.G. 


X 


Y 


EPSX EPSY 


GAMXY 


SIGX SIGY TAUXY 

SIGl SIG2 TAUMAX 


1 


. 16500E+02 


.60000E+01 


.13957E-16 .41315E-05 


-.47656E-03 


. 33052E-0 1 . 1 322 1 E+00 57 1 87E+0 1 

.58015E+01 -.56363E+01 .57169E+01 


2 


. 16500E+02 


•90000E+01 


.89602E-03 -.22588E-03 


-.2B414E-03 


. 26866E+02 -.601 36E~0 1 34097E+0 1 

.272912+02 - 48520E+00 .138382+02 


3 


. 15000E+02 


.90000E+01 


.89602E-03 -.22730E-03 


28114E-03 


.26854E+02 -. 10537E+00 -.S3736E+01 
.27270E+02 ~. 52112E+00 .158%E+02 



CONTflINTES DANS L ELEMENT 39 



P.G. 


X 


Y 


EPSX 


EPSY GAMXY SIGX SIGY 

SIGl SIG2 


TAUXY 

TAUMAX 


1 


. 19500E+02 


.60000E+01 


. 14105E-16 


.42089E-05 -.47635E-03 . 33671E-01 . 13468E+00 

.58006E+<il -.56323E+01 


-.57162E+01 

.57164E-KH 


2 


. 19500E+02 


.90000E+01 


.81263E-03 


- 20504E-03 -.28423E-03 .24364E+02 -.60195E-01 

.24831E+02 -.527552+00 


-.341072+01 
. 126792+02 


3 


.18000E+02 


.90000E+01 


.61263E-03 


-.206402-03 -.28112E-03 .24353E+02 -.105602+00 

.248102+02 -.560392+00 


-.337352+01 
. 12685E+02 



CONTAINTES DANS L ELEMENT 40 



P.G. 


X 


Y 


EPSX 


EPSY 


GAMXY 


SIGX 

SIGl 


SIGY TAUXY 

SIG2 TAUMAX 


1 


.22500E+02 


.60(i00E+01 


.76941E-17 


.42250E-05 


-.47631E-03 


.338002-01 

.580042+01 


.155202+00 -.57157E+01 
-.56314E+01 .57159E+01 


2 


.22500E+02 


.900002+01 


.72929E-03 


-. 18420E-03 


-.284242-03 


.21864E+02 

.22382E+02 


-.602192-01 -.34109E+01 
-. 57864E+00 . 1 1480E+02 


3 


.210002+02 


.900002+01 


.72929E-03 


-. 18555E-03 


-.281122-03 


.218532+02 

.223592+02 


-.103222+00 -.337342+01 
-.609842+00 .11485E+02 



CONTAINTES DANS L ELEMENT 41 



P.G. 


X 


Y 


EPSX 


EPSY 


GAMXY SIGX 


SIGY 


TAUXY 












SIGl 


SIG2 


TAUMAX 


1 


.255002+02 


.600002+01 


. 177132-16 


.422672-05 


-.476292-03 .338142-01 


. 135252+00 


-.571552+01 












.5600'2E+01 


-. 563122+01 


.571572+01 


2 


.255002+02 


.900002+01 


.645952-03 


-. 163372-03 


-.284252-03 .193642+02 


-.602772-01 


-.341092+01 












.199452+02 


-.641852+00 


. 102932+02 


3 


.240002+02 


.900002+01 


.645952-03 


-. 164712-03 


-.281122-03 .193532+02 


-. 103162+00 


-.337352+01 












. 199212+02 


-.671482+00 


. 102962+02 
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CONTAIN^ES DANS L ELEW AS 

P.G. X Y 



EPSX 



EASY 



SAMXY 



SI6X 


SI6Y 


TAUXY 


TETA 


SI61 


SIG2 


TAUMAX 




.337A9E-01 .13500E+00 


-.57150E+01 


-45.3 


.57996E+01 -.56308E+01 


.57152E-H)! 




.16864E+02 -.605A5E-01 


-.34108E+01 


-11.0 


.17525E+02 - 72206E+00 


.91237E+01 




. 16853E+02 10523E+00 


-.33735E+01 


-1.0.8 


.17500E+02 -.74976E+00 


.91247E+01 





CONTAINTES DANS L ELEMENT A3 
o.G. X Y EPSX 



EASY 



SAMXY 



SIGX 


SIGY 


TAuXY 


TETA 


SIGl 


SIG2 


TAUMAX 




.33A17E-01 .13367E+00 


-.57126E+01 


-45.3 


.5796AE+01 - 56293E+01 


.57129E+01 




.14365E+02 -.61815E-01 


-.34098E+01 


-12.7 


.1513(€+02 -.82716E+00 


.79786E+01 




. 1A354E+02 -. 10367E+00 


-. 33739E+01 


-12.5 


.15103E+02 -.85224E+00 


.79776E+01 





CONTAINTES DANS L ELEMENT 44 



P.G. 


X 


Y 


EPSX 


EASY ■ GAMXY 


SIGX 


SIGY 


TAUXY 


TETA 












SIGl 


SIG2 


TAUMAX 




1 


.34500E+02 


.60000E+01 


. 12916E-16 


.398A0E-05 -.A7515E-03 


.31872E-01 .127A9E+00 


-.57018E+01 


-45.2 












.57817E+01 -.56223E+01 


. 57020E+01 




2 


.34500E+02 


.90000E+01 


.3%22E-03 


-.10117E-03 -.28380E-03 


.11870E+02 -.6765AE-01 


-.3A056E+01 


-14.9 












.12773E+02 - 97085E+00 


. 687£\iE+01 




3 


.33000E+02 


.90000E+01 


.39623E-03 


-.10236E-03 -.28130E-03 


.ll86C€+02 -10573E+00 


-. 33756E+01 


-14.7 












.127A7E+02 -.99230E+00 


.68697E+01 





CONTAINTES DANS L ELEMENT 45 



P.G. 


X Y 


EPSX 


EPSY 


SAMXY SIGX 


SIGY 


TAUXY 


TETA 










SIGl 


SIG2 


TAUMAX 




1 


.37500E+02 .60000E+01 . 


74417E-17 


.31501E-05 


-.47115E-03 .25201E-01 


. 10080E+00 


-.56538E+01 


-45.2 










.57169E+01 


- 55909E+01 


. 56539E+01 




2 


.37500E+02 .90000E+01 . 


31391E-03 


-.81368E-04 


-.28224E-03 .95943E+01 


-.92467E-01 


-.33868E+01 


-17.8 










. 10479E+02 


-.11775E+01 


.58284E+01 




3 


.36000E+02 .90000E+01 . 


31391E-03 


-.82072E-04 


-.28189E-03 .93886E+01 


-.11501E+00 


-.33827E+01 


-17.7 










. 10470E-h)2 


-.11961E+01 


.58329E+01 




CONTAINTES DANS L ELEMENT 46 














P.G. 


X Y 


EPSX 


EPSY 


GAMXY SIGX 


SIGY 


TAUXY 


TETA 
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1 .40500E+02 . 60000E+0i .53905E-17 . 17029E-06 

2 .A05CKC+02 . 90000E+01 .23489E-03 - 64245E-04 

3 .39000E+02 .90000E+01 .23489E-03 -.63479E-04 

CONTftINTES DANS L a£MENT 47 

P.S. X Y EPSX E?SY 

1 .43500E+02 .60000E+01 .40635E-16 -.35364E-05 

2 .43500E+02 .90000E+01 . 16606E-03 48477E-04 

3 . 42000E+02 . 90000E+01 . 16606E-03 49449E-04 

CONTftINTES DANS L ELEMENT 48 

P.G. X Y EPSX EPSY 

1 .48500E+02 .60000E+01 .19166E-i6 .10056E-03 

2 .48500E+02 .90000E+01 .85147E-04 .88824E-04 

3 .45000E+02 .90000E-KH .85147E-04 -.21937E-04 

CONTftINTES DANS L ELEMENT 49 

P.S. X Y EPSX EPSY 

1 .15000E+01 .90000E+01 . 13192E-02 -. 18747E-03 

2 . 30000E+01 .90000E+01 .11694E-02 - 28854E-03 

3 .15000E+01 .12000E+02 .26425E-02 -.5i777E-03 

CONTftINTES DANS L ELEMENT 50 

P.S. X Y EPSX EPSY 

1 .45000E+01 .90000E+01 . 12279E-02 -. 30507E-03 



SIGl SIG2 TAL'MftX 

•.45564E-03 . 13623E-02 .54493E-02 -.54677E+01 -45.0 

.54711E+01 -.54642E+01 .54677E+01 
.27647E-03 .70025E+01 -. i7672E+00 -.33177E+01 -21.4 

.83009E-h)1 -.14751E+01 .48880E+01 
.28361E-03 .70086E+01 -.15223E+00 -.34033E+01 -21.8 

.83680E+01 -. 15117E+01 .49398E+01 



SflMXY 


SIGX 


SIGY 


TfiUXY 


TETft 




SIGl 


SIG2 


TflUMftX 




.42014E-03 


- 28291E-01 -.11316E+00 


-.50417E+01 


-44.6 




.49711E+01 -.51126E+01 


.50419E+01 




.26673E-03 


.49262E+01 - 22277E+00 


-. 32008E+01 


-25.6 




.64594E+01 -.17560E+01 


.41077E+01 




.26073E-03 


.49164E+01 -.25387E+00 


-.33688E+01 


-26.2 




.65792E+01 -.19147E+01 


.42469E-KH 





GfiMXY 


SIGX 


SIGY 


TflliXY 


TETfl 




SIGl 


SIS2 


TftUMftX 




.68437E-03 


.80452E+00 


.32181E+01 -.82125E+01 


-49.2 




.1031^+02 


- 62894E+01 .83007E+01 




.41347E-03 


.34353E+01 


.35235E+01 - 496i6E+01 


-45.3 




.84413E-H)l 


-. 14824E+01 . 49618E+01 




. 13257E-03 


.25492E+01 


- 20799E-01 - 15908E+01 


-25.5 




.33092£-K»l 


-. 78078E+00 . 20450E+01 





SftMXY 


SIGX 


SIGY 


TflUXY 


TETfi 




SIGl 


SIG2 


TflUMftX 




.48780E-03 


.407146+02 


.45543E+01 -.58536E+01 


-9.0 




.41638E+02 


.36303E+0! . 19004E+02 




. 10756E-03 


.35il4E+02 


. 12208E+00 -. 12907E+01 


-2.1 




.35161E+02 


. 7453^-01 . 17543E+02 




. 44555E-03 


.80418E+02 


.45714E+01 - 53467E+01 


-4.0 




.807936+02 


.41963E+01 .58299E+02 




SflMXY 


SIGX 


SIGY 


TflUXY 


TETfl 



SISl SI62 TAUMftX 

.28349E-03 .36851E+02 .60618E-01 -.34019E+01 -5.2 
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.37163E+02 25130E+W .13707E+02 

2 .60000E+Oi .90000E+01 . ll62£E-02 -2930AE-03 -.27446E-03 .3A847E+02 -.79468E-01 -.32935E+01 -5.3 

.35155E+02 - 38732E+00 .17771E+02 

3 .45000£+0i .120(K3E*02 . 2397 lE-02 -.594 AOE-03 - 50558E-04 .71953E+02 . 15626E+00 -. 60669E+00 -.5 

. 7 1 958E+02 .1511 3E+00 . 359(i3E+<)2 



CONTPINTES D(WS L ELfMENT 51 



P.G. 


X 


Y 


EPSX 


EPSY 6PMXY 


SI6X 


SI6Y 


TPUXY 


7ETR 












SIBl 


SIG2 


TPUKPX 




1 

X 


.750(tOE+01 


. 90000E+01 


.11400E-02 


-.28810E-03 -.28056E-03 


.34177E+02 


-.98918E-01 


-. 336672+^11 


-5.5 












. 34504E+(i2 


-. 42646E+00 


.17465E+02 




2 


.90000E+01 


.90000E+01 


. 10735E-02 


-.27037E-03 -.28154E-03 


.32188E+02 


-.64231E-01 


- 33785E+01 


-5.9 












.32538E+02 


-.41434E+00 


. 16476E+0£: 




3 


.75000E+01 


. 12000EK12 


. 22432E-02 


-.55844E-03 -.50915E-04 


. 67314E+02 


.75302E-01 


- 61098E+00 


-.5 












.67319E+02 


.69751E-01 


. 33625E+02 





CONTPINTES DPNS L ELEMENT 52 



P.G. X 


Y EPSX EPSY 6PMXY 


SIGX 


SISY 


TPUXY 


TE'A 






SIGT 


SIG2 


TPUKPX 




1 .10500E+02 


. 90000E+01 . 10555E-02 -. 26621E-03 -. 28314E-03 


.31647E+02 -.74499E-01 


-.33977E+01 


-6.0 






.32006E+02 -. 43434E+(X> 


. 16220E+02 




2 .12000E+02 


.90000E+01 .98726E-03 -.24S43E-03 -.28138E-03 


.29605E+02 -.51747E-01 


-. 33766E+01 


-6.4 






.299845+02 -.43134E+00 


. 152085+02 




3 .10500E+02 


.12000E+02 .20817E-02 -.51677E-03 -.57160E-04 


.62479E+02 .11664E+00 


- 68592E+(tO 


-.6 






.62486E+02 . 10910E+00 


.311895+02 





CONTPINTES DPNS L ELEMENT 53 










5.G. 


X Y 


EPSX EPSY 


GPMXY 


SIGX SIGY 

SIGl SIG2 


TPUXY 

TPUMPX 


TETA 


1 

X 


.13500E+02 .90000E+01 


.97190E-03 -.24497E-03 


-.28399E-03 


.29141E+02 -.637775-01 
.29533E+02 -.45616E+0<j 


-.340785+01 
. 14995E+(i2 


”bt b 


2 


.15000E+02 .90000E+01 


.90316E-03 -.22730E-03 


-.28119E-03 


.27083E+02 -.48224E-01 
.274%E+02 - 46159E+00 


-.337435+01 
. 139795+02 


1 

o 


3 


.13500E+02 .1200CE+02 


.19163E-02 -.47498E-03 


-.59055E-04 


.57522E+02 .13088E+00 
.5753C€+02 .12213E+00 


-.70866E+00 

.28704E+<»2 


-.7 



CONTPINTES DPNS L ELEMENT 54 










P.G. 


X 


Y EPSX EPSY GPMXY 


SIGX • 


SIGY 


TPUXY 


~ETP 








SIGl 


SIG2 


TPUMPX 




1 


. 16500E+02 


.90000E+01 .888515-03 -.22403E-03 -.284195-03 


.266405+02 


-.610035-01 


-.341035+01 


-7.2 








.270695+02 


-. 48969E+00 


.137795+02 




2 


. 18000E+02 


.900005+01 .81965E-03 -.206405-03 -.281145-03 


.24578E+02 


- 47407E-01 


-. 33736E+01 


-7.7 








.250325+02 


-.501235+00 


. 12766E+02 
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3 .16500E+02 .12000E+02 . 17A99E-C2 A3328E-03 59506E-0A 



. 52531E-KI2 . 13A37E+00 71A07E+00 

.525A1E+02 .12A6AE+00 .25208E+02 



CONTAINTES DANS L ELEMENT 55 

P.G. X Y EPSX EPSY SAMXY SISX SI6Y TAUXY 

SIGl SIG2 TAUMAX 

1 .19500E+02 .9000C1E+01 . 805 16E-03 -.2031 8E-03 -.28A2AE-03 .2A1AOE+02 -.S0378E-01 -.3A109E+01 

. 2A61 lE+02 53I93E+00 . 12572E+02 

2 .21000E+02 .90000E+01 .73628E-03 18555E-03 -.28112E-03 .22077E+02 -.A7236E-01 -.33735E+01 

. 22560E+02 55019E+00 . 1 1565E+02 

3 .19500E+02 .12000E+02 . 15833E-02 - 39161E-03 - 5960AE-0A .A7533E+02 . 1351AE+00 -.71525E+00 

.A75AAE+02 . 12A35E+00 .23710E+02 



CONTAINTES DANS L ELEMENT 56 

P.G. X Y EPSX EPSY GAMXY SIGX SIGY TAUXY 

SIGl SIG2 TAUMAX 

1 .22500E+02 .90000E+01 . 72183E-03 -. 1823AE-03 -. 28A25E-03 .216A0E+02 -.602A8E-01 -.3A110E+01 

. 221632+02 -. 56578E+(yj . 1 137AE+02 

2 .2A000E+O2 . 90000E+01 .6529AE-03 -. 16A71E-03 -.28112E-03 . 19577E+02 -A7227E-01 -.3373AE+01 

.201A0E+02 -. 61095E+00 .10376E+02 

3 .22500E+02 . 12000E+02 . 1A167E-02 -.5A99AE-03 -.59628E-0A .A253AE+02 . 13527E+00 -.7155AE+00 

.A25A6E+02 .12320E+00 .21211E+02 



CONTAINTES DANS L ELEMENT 57 



P.G. 


X 


Y 


EPSX 


EASY GAMXY 


SIGX 

SIGl 


SIGY TAUXY 

SIG2 TAUMAX 


1 


.25500E+02 


.90000E+01 


.63850E-03 


-.16151E-03 -.2BA2AE-03 


. 191A0E+02 
.19728E+02 


-.60238E-01 -.3A109E+01 
-.64818E+C10 .10183E+<)2 


5 


.27000E+02 


.90000E+01 


.56961E-03 


-. 1A388E-03 -. 28112E-03 


. 17077E+02 
.17717E+02 


-A7355E-01 -.33735E+0I 
-.68797E+(Mj .92026E+01 


3 


.25500E+02 


. 12000E+02 


. 12500E-02 


-.30827E-03 - 596A7E-0A 


.3753AE+02 

.375A7E+02 


.13516E+00 -.71576E+00 
. 121ASE+CH) . 187I3E+02 



CONTAINTES DANS L ELEMENT 50 

P.G. X Y EPSX EPSY GAMXY SIGX SIGY TAUXY 

SIGl SIG2 TAUMAX 

1 .28500E+02 . 90000E+01 .55519E-03 -. 1A068E-03 -.28A22EKI3 . 166A1E+02 -.60316E-01 -.3A106E+01 

. 17310E+02 -. 72996E+00 . 90201E+01 

2 . 30000E+02 . 90000E+01 .A8630E-03 -. 12308E-03 -.28113E-03 . 1A577E+02 -.A8011E-01 - 33735E+01 

.15318E+02 -.78B67E+00 .80531E*0i 

3 . 28500E+02 . 12000E+02 . 10833E-02 -. 26663E-03 -. 59718E-0A .32533E+02 . 13AA3E+00 - 71662E+00 

.325A9E+02 .11858E+00 . 16215E+02 
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CONTftINTES DANS L ELEMENT 59 



3.G. 


X 


Y 


EPSX EPSY GflMXY 


SIGX SIGY 'flUXY 

SIGl SIG2 TAUMfiX 


-ETA 


1 


.31500E+02 


. 90000E+01 


.47197E-03 -.11989E-03 - 28A09E-03 


.14144E+02 -.60720E-01 -.3409C€+01 
.14920£+(i2 -.83650E+<X) .78780E+01 


-12.8 


2 


.33000E+02 


.90000E+01 


.A0206E-03 -.10236E-03 -.23116E-03 


.12079E+02 -.5ii08E-01 -.33739E+01 
. 1295AE+02 92539E+(H) . 69A03E+01 


-lA.S 


3 


.31500E+02 


. 12000E+02 


.91654E-03 -.22504E-03 -.60055E-0A 


.2752SE+02 . 13093E+00 72066E+00 

.275A8E+02 .11199E+00 . 13713E+02 


-1.5 



CONTAINTES DANS L 


ELEMENT 60 










P.G. 


X 


Y 


EPSX EASY GANXY SIGX 


SIGY 


TALXY 










S161 


SIG2 


TALiMAX 




1 


.3A500E-K)2 


.90000E+01 . 


38916E-03 -.992A6E-0A -.283A8E-03 .11659E+02 


-.62603E-01 


-.3A<;iI8E+0i 


A. U* ±. 








. 12575E+02 


-.97830E+00 


. 67765E+01 




o 

u 


.36000E+02 


.90000E+01 . 


32015E-03 -.82072E-0A -.28130E-03 .9586AE+01 


-.65076E-01 


33756E+01 


-17.5 








. !0652£-h)2 


1128AE+01 


. 58900E+01 




3 


.3A500E+02 


. 12000E+02 . 


7A9A1E-03 -18376E-03 -.61633E-0A .22511E+02 


. 11A86E+00 


73960E+00 


-1.5 








.22535E+02 


.90A63E-01 


.11222E+02 





CONTAINTES DANS L ELEMENT 61 












P.G. 


X 


Y 


EPSX EPSY GAMXY 


SIGX 


SIGY 


TAUXY 


TETA 










SIGl 


SIG2 


TAUMAX 




1 


.37500E+02 


.90000E+01 . 


30820E-03 -.79265E-0A -.28089E-03 


.92283E+01 


-.70860E-01 


-. 33706E+(il 


-16.0 










. 10322E+02 


-. 116A1E+01 


. 57A28E+01 




2 


.39000E+02 


.90000E+01 . 


23872E-03 -.63A79E-0A -.28189E-03 


.71313E+01 


-. 12156E+00 


-. 33827E+01 


-21.5 










.8A6A0E+01 


-. 1A5A3E+01 


. A9592E+01 




3 


.37500E+02 


.12000E+02 . 


58057E-03 -.lA366E-(i3 -.68621E-0A 


. 17A29E+C2 


.A6786E-01 


-.823A5E+00 


-2.7 










. 17A68E+02 


.78630E-02 


.87299E+01 





CONTAINTES DANS L ELEMENT 62 












P.G. 


X 


Y 


EPSX EPSY GAMXY 


SIGX 


SIGY 


TAUXY 


TETA 










SIGl 


SIG2 


TAUMAX 




1 


.A0500E+02 


.90000E+01 . 


23A62E-03 -.61830E-0A -.27178E-03 


.70132E+01 


-. 10162E+00 


-.3261AE+01 


-21.3 










.82819E+01 


-. 1370AE+01 


.A8261E+01 




2 


.A2000E+02 


.90000E+01 . 


16265E-03 -.A9AA9E-0A -.28361E-03 


.A8092E+01 


-.28117E+00 


-. 3A033E+01 


—^5. 6 










.65138E+01 


-. 19858E+01 


. A2A98E+01 




3 


. A0500E+02 


. 12000E+02 . AOA29E-03 -. 10677E-03 -. 95552E-0A 


. 12083E+02 


-. 18232E+00 


-.11A66E+01 


-5. 3 


\ 








. 12190E+02 


-.28859E+00 


.62391E+01 




CONTAINTES DANS L ELEMENT 63 












P.G. 


X 


Y 


EPSX EPSY GAMXY 


SIGX 


SIGY 


TAUXY 


TETA 
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SIGl 



SIG2 



TflUMfiX 



1 .43500E+02 .50000E+OI . i80i6E-03 -.A9195E-0A 

2 .45000E+02 .90000E+01 .9A911E-04 -.21937E-0A 

3 .A3500E+02 .12000E+02 .20152E-03 -.60935E-0A 

CONTflINTES DANS L ELEMENT 6A 
P.G. X Y EPSX EPSY 

1 .A6500E+02 . 90000E+01 -.11615E-16 .19011E-03-. 

2 .A8000E+02 .90000E+01 -.73112E-OA .25A79E-03 

3 .A6500E+02 . 12000E+02 .731i2E-0A 11770E-03 



26112E-03 


.53717E+01 -.132922+00 


-.3133AE+01 


1 

ro 




.67699E+01 -.15512E+01 


.A1705E+01 




28073E-03 


.28617E+01 .57312E-01 


-.33688E+01 


-33.7 




.5108AE+01 -2189AE+01 


.36A89E+01 




15722E-03 


.59610E+01 -.33779E+00 


-. 188662+01 


-15.5 




.6A829E+01 -.85%AE+00 


.567132+01 





GAMXY SIGX 


SIGY 


TAUXY 


t=TA 


SIGl 


SIG2 


TAUMAX 




253A8E-03 .152092+01 


. 6083AE+01 


-30A17E+01 


-63. A 


.760A3E+01 


-.67057E-13 


. 58021E+()1 




13257E-03 -.30126E+00 


.7568AE+01 


-. 15908E+01 


-79.0 


.78778E+01 


-. 6106SE+00 


.A2AA2E+01 




50210E-0A .139792+01 


-.31816E+01 


-. 60253E+00 


-7. A 


.IA759E+01 


-.32596E+01 


.236772+01 





EQUILIBRIUM RESIDUALS AND INACTIONS 



NODES 



DEGREES OF FREEDOM (» = PRESCRIBED) 



1 .OOOOOE+00 .OOOOOE+00 

2 .OOCOOE+00 .30000E+01 

3 .OOOOOE+00 .60000E+01 
A . OOOOOE+00 . 90000E+01 

5 .OOOOOE+00 .12000E+02 

6 ,l50Ci0E+01 .OOOOOE+00 

7 .15000E+01 .30000E+01 
a .ISOOCE-KU .frjOOOE+01 

9 .15000E+01 .90000E+01 

10 . 15000E-H)1 . 12000E+02 

11 .30000E+01 .OOOOOE+00 

12 . 30000E+01 .30CI00E+01 



. OOOOOE+00 
.OOOOOE+00 
.OOOOOE+00 
. <X)fX)0E+00 
.OOOOOE+00 
.OOOOOE+00 
.OOOOOE+00 
.OOOOOE+00 
.OOOOOE+00 
. OOOOOE+00 
.OOOOOE+00 
.OOOOOE+OO 



.OOOOOE+00 » 
.OOOOOE+CK) ♦ 
.OOOOOE+OO * 
.OOOOOE+OO * 
.OOOOOE+OO ♦ 
. OOOOOE+OO 
.OOCKWE+OO 

. <)oooo£+<:io 

.OOOOOE+OO 
. 000()OE+(10 
.OOOOOE+OO 
. OOOOOE+OO 



.OOOOOE+OO * 
.OOOOOE+OO * 
.OOOOOE+OO * 
.OOCKKiE+OO * 
.OOOOOE+OO * 
. OOOOOE+OO 
.OOOOOE+OO 
.00( i 0(€+00 
. 0000(€+00 
.OOOOOE+OO 
.OOOOOE+OO 
. 0000()E+00 



13 .30000E+01 
lA .30000E+01 

15 .30000E+01 

16 .A5000E+01 

17 .A5000E+01 

18 .A5000E+01 

19 .A5000E+01 

20 . A5000E+01 

21 .60000E+01 

22 . 600fXiE+01 

23 .60000E+01 



.60000E+01 .OOOOOE+OO 
. 90C00E+0 1 . OOOOOE+OO 
.12000E+02 .OOOOOE+OO 
. 0000<3£+00 . OOOOOE+OO 
.3000(!E+01 .OOOOOE+OO 
.6000<)£+01 .OOOOOE+OO 
.90000E+01 .OOOOOE+OO 
.12000E+02 .OOOOOE+OO 
.OOOOOE+OO .OOOOOE+OO 
.30000E+01 .OOOOOE+OO 
.60000E+01 .OOOOOE+OO 



.OOOOOE+OO 
.OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
.OOOOOE+OO 
.OOOOOE+OO 
.OOOOOE+OO 
.OOOOOE+OO 



.OOOOOE+OO 
. 00000E+0() 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
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£4 


. £0<)00E+01 


. 9(k)00E+01 


.000002+00 


. 00(Xk3£+00 


.OOOOOE+00 


£5 


. 60000E+01 


. 12000E+02 


.000002+00 


.000002+00 


.000002+00 


£S 


.75000S+01 


. mooEm 


. OOOOOE+00 


. OOOOOE+00 


. 000002+00 


27 


.75000E+01 


.30000E+01 


.000002+00 


.000002+00 


.000002+00 


£B 


.75000E+01 


.600002+01 


. 000002+00 


. 000002+00 


.000002+00 


29 


.75000E+01 


.90000E+01 


.000002+00 


.000002+00 


.0000(€+00 


30 


• 75(HXiE+01 


. 12000E+02 


.000002+00 


.000002+00 


.000002+00 


31 


.9000(€+01 


.OOOOOE+00 


.000002+00 


.000002+00 


.000002+00 


32 


. 90000E+01 


.300002+01 


.000002+00 


. 00000£+(t0 


. 000002+00 


33 


.90000E+01 


.600002+01 


.000002+00 


.000002+00 


.000002+00 


34 


.90000E+01 


.9<X>00E+01 


.OOOOOE+<30 


. 000()0E+00 


.000002+00 


55 


.90000E+01 


. 120002+02 


.000002+00 


.000002+00 


.000002+00 


3S 


. 10500E+02 


.OOOCOE+00 


. (yj0(M3E+00 


. 000002+00 


. 000002+0(1 


37 


. 10500E+02 


.300002+01 


.000002+00 


.000002+00 


.000002+00 


38 


. 10500E+02 


.60000E+01 


.000002+00 


.000002+00 


.000002+00 


39 


.I0500E+02 


.9Ct000E+01 


.000(K€+00 


.000002+00 


.000002+00 


40 


. 105C<)E+02 


. 12000E+02 


.(XiOOOE+00 


. 000002+00 


. 0(KX)0E+00 


41 


. 12000E+02 


.000002+00 


.000002+00 


.000002+00 


.000002+00 


42 


. 12000E+02 


. 30000E+01 


. 000002+0(1 


. 000002+00 


.000002+00 


43 


. 12000E+02 


.600002+01 


.000002+00 


.000002+00 


.000002+00 


44 


. IcOOCit+OE 


.900002+01 


. 000002+00 


.000002+00 


.000002+00 


45 


. 12000E+02 


. 120002+02 


.000002+00 


.000002+00 


.000002+00 


48 


.13500E+02 


.0(10002+00 


. 000002+00 


.000002+00 


.000002+00 


47 


. 13500E+02 


.300002+01 


.000002+00 


.000002+00 


.000002+00 


48 


. 13500E+02 


. 600002+01 


. 000002+00 


.000002+00 


.000002+00 


49 


. 13500E+02 


.900002+01 


.000002+00 


.000002+00 


.000002+0(1 


50 


. 13500E+02 


. 120002+02 


.000002+00 


.000002+00 


.0<)OOOE+0O 


51 


. 15000E+02 


.000002+00 


.000002+00 


.000002+00 


. 000002+00 


52 


. 15000E+02 


. 300002+01 


.000002+00 


. 000002+00 


. 000002+00 


53 


. I5000E+02 


.600002+01 


.000002+00 


.000002+00 


.000002+00 


54 


. 15000E+02 


.90('00E+01 


.000002+00 


.000002+00 


. 0«X)(iOE+0(i 


55 


. 15000E+02 


. 120002+02 


.000002+00 


.000002+00 


.000002+00 


a 


. 16500E+02 


. 0OOOOE+O<) 


.000002+00 


. 000002+00 


.000002+00 


57 


. 16500E+02 


.300002+01 


.000002+00 


.000002+00 


.000002+00 


58 


. 165002+02 


.600002+01 


. OOOOOE+00 


. 000002+00 


.000002+00 


59 


. 16500E+02 


.900002+01 


.000002+00 


.000002+00 


.000002+00 


60 


. 16500E+02 


. 120002+02 


.000002+00 


.000002+00 


.000002+00 


61 


. 18000E+02 


.000002+00 


.000002+00 


.000002+00 


.000002+00 


£2 


.18000E+02 


.300002+01 


.000002+00 


.0000(€+00 


.000002+00 


63 


. 18000E+02 


.600002+01 


.000002+00 


.000002+00 


.000002+00 


64 


. 18000E+02 


.900002+01 


.000002+00 


.000002+00 


.000002+00 


65 


. 18000E+02 


. 120002+02 


.000002+00 


.000002+00 


.000002+00 


66 


. 195002+02 


.000002+0(1 


.000002+00 


.000002+00 


. OOOOOE+(X) 


67 


. 19500E+02 


.300002+01 


.000002+00 


.000002+00 


.000002+00 


68 


.19500E+02- 


.60(>00£+01 


.000002+00 


. 00(i0<3E+00 


.000002+00 


69 


. 19500E+02 


.900002+01 


.000002+00 


.000002+00 


.000002+00 


70 ' 


. 19500E+02 


. 12000E+02 


.000002+00 


.000002+00 


.000002+00 


71 


.2I00OE+02 


.000002+00 


.000002+00 


.000002+00 


.000002+00 


72 


.21000E+02 


,30()00E+01 


.000002+00 


.000002+00 


.000002+00 


73 


.21000E+02 


.600002+01 


.000002+00 


.000002+00 


.000002+00 


74 


.21000E+02 


.900002+01 


.000002+00 


.000002+00 


.000002+00 
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75 


. 210002+02 


. 120002+02 


. OOOOOE+00 


. 000002-00 


.000002-00 


76 


.22500E+02 


. (hXiOOE+00 


. 000002+00 


. oooiX;£+oo 


. 00-0002-OC 


77 


.22500E+02 


. 300002+01 


. 0(iOOO£+CO 


. 000002-^00 


. C!(l0002•^CC 


78 


.225002+02 


. 600002+01 


. 000CK)E+00 


. 000002+CKi 


. 000002-^X 


73 


.225002+02 


.90(M)OE+01 


. 000002+00 


. 000002+00 


. 000002+00 


80 


.225002+02 


. 12000E+02 


. 00000£+()0 


. 000(iC'2+00 


. OXiOOE+OC 


81 


.240002+02 


. (100002+00 


. 0OIWO2+OO 


. OOOOOE+00 


. 000002+00 


82 


.240002+02 


.300002+01 


. C«jOOO£+(iO 


. 000002+00 


. 00*0002+00 


83 


.240002+02 


. 60000E+01 


. 00(X)02+00 


. (X:000E+00 


.000002+00 


84 


.240002+02 


.900002+01 


.000002+00 


. 000002+00 


. 00000£+<J(f 


85 


.240002+02 


. 120002+02 


. OOOOOE+00 


. 000002+00 


. 000002+00 


86 


. c'55002+02 


.000002+00 


.000002+00 


.000002+00 


. 000002+00 


87 


. 255002+02 


. 300002+01 


. 00CK50£+()0 


.000002-^00 


.OOC002+00 


88 


.255002+02 


.600002+01 


.000002+00 


. COOOC'E+00 


. OOOOOE+'OC 


89 


.255002+02 


. 90(Kj02+01 


. 000002+00 


. 000002+00 


. OOOCHjE-i-OO 


90 


. 255002+02 


. 120002+02 


.000002+00 


.000002+00 


. 000002+00 


91 


. 270002+02 


.WOOOE+CO 


. 000<50E+00 


. 000002+00 


. 00CXi2+00 


92 


.270002+02 


.300002+01 


. 0(XXiO£+00 


. 000002+00 


.000002+00 


93 


. 270002+02 


. 600002+01 


.000002+00 


.000002+00 


. 000002+00 


94 


.270002+02 


.900002+01 


. 000002+00 


.000002-^00 


. 000002+00 


95 


.270002+02 


. 120002+02 


. 000002+00 


.000002+00 


.C0C002+00 


96 


.285002+02 


.000002+00 


.000002+00 


.00(X)02+00 


,000002+00 


97 


.285002+02 


.300002+01 


. 000002+00 


. 000002+00 


.000002*00 


98 


.28500E+02 


.600002+01 


.000002+00 


.0<X)C<i2+00 


.000002+00 


99 


.285002+02 


.900002+01 


. 000002+00 


.000002+00 


. 000(X)2+00 


100 


.285002+02 


. 120002+02 


.OOOOOE*00 


.000002+00 


. 000002+*DO 


101 


.300002+02 


. 00(>0Ci2+00 


.000002+00 


.000002+00 


. 000002+00 


102 


.300002+02 


.300002+01 


.000002+00 


.000002+00 


. 000002+-00 


103 


.300002+02 


.600002+01 


. 000002*0<j 


.(X’OOOE+OO 


. 000002+00 


104 


.300002+02 


.90000E+01 


. 000002+00 


.000002+00 ■ 


.OOOOOE+(iO 


105 


.300002+02 


. 120002+02 


. 000002+00 


. 000002+00 


. 000002+00 


106 


.31500E+02 


.000002+00 


.000002+00 


. 000002+00 


.000002+00 


107 


. 315002+02 


. 300002+01 


. 000002+00 


. 000002+(>0 


. iXi0002+00 


108 


.315002+02 


.600002+01 


.000002+00 


.000002+00 


. 000002+00 


109 


. 315002+02 


.900002+01 


. 0000(£+00 


.000002+00 


. 00(h002+(!0 


no 


.315002+02 


. 120002+02 


.000002+00 


. 000002+00 


. 000(i02+<j0 


111 


.330002+02 


. 0(i0CiC€+00 


. 000002+00 


. !Xi0002+00 


. 000002+00 


112 


.33CKXC+02 


.300002+01 


. 000002+00 


.000002+00 ' 


.OOOOOE+-OC 


113 


. 330002+02 


. 60000E+01 


. 000002+00 


. 00000E+(X) 


. 000002+00 


114 


.330002+02 


.900002+01 


.000002+00 


.000002+00 


. 000002+00 


115 


.330002+02 


. 120002+02 


. 000002+00 


. 000C02+00 


.000002+00 


116 


. 345002+02 


.000002+00 


.000002+00 


. 0(«X!0£+(iO 


. 000002+00 


117 


. 345002+02 


. 500002+01 


. 000<j0£+00 


. 000002+00 


. 000002+00 


118 


.345002+02 


.600002+01 


.000002+00 


.000002+00 


.000002+00 


119 


. 345002+02 


.900002+01 


.000002+00 


. OOOOOE-K)0 


. 000(i0£+0(! 


120 


.34500E+02 


. 120002+02 


.OOOOOEhX> 


.000002+00 


. OOOOOE+(!0 


121 


. 360002+02 


.000002+00 


. 000002+00 


. 000002+00 


. 000002+00 


122 


.360002+02 


.300002+01 


.000002+00 


.000002+00 


.OOOOOE+(!0 


123 


.360002+02 


.50000E+01 


. 000002+00 


. 000002+00 


. 000002+00 


124 


. 36000E+02 


.90000E+01 


.OOOOOE+00 


.000002+00 


. 000002+00 


125 


.360002+02 


. 120002+02 


. (Ktooce+oo 


. 000002+00 


. 000002+00 
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126 


. 375002+02 


. CtOOOOE+00 


. 000002+00 


.OOOOOEtCO 


.000002-00 


127 


. 37500E+02 


. 300(!02+01 


. (Kj0(i02-«-(:0 


, 000002*00 


, 000002-00 


128 


.37500E+02 


. 600002+01 


. 000002+00 


. 000002+00 


. OOOOOE-OO 


129 


. 37500E+02 


. 900002+01 


. 000002+00 


. 0CO002+(iO 


. (hX’002*00 


130 


.37500E+02 


. 120002+02 


. 000002+00 


.OOOOCEtOO 


.000002-<!(. 


131 


. 39000E+02 


. 000002+00 


. 0(!(«OOEfOO 


.000002+00 


.000002+00 


132 


.390002+02 


.300002+01 


. 000002+00 


.000002+00 


.000002-00 


133 


. 390002+02 


. 600002+01 


. 000002+00 


. 000002+00 


. OOOOOE+00 


134 


.390002+02 


.'300002+01 


. 000(!()E+00 


.000002+00 


.000002-00 


135 


. 390002+02 


. 120(102+02 


. 00'Xi02+00 


. 0(i0002+(!0 


. 000002+00 


138 


. 405002+02 


. 000()02+00 


. 0000<)£+00 


. 000002+00 


. 000002*00 


137 


. 405002+02 


. 300002+01 


, OOCOOE+00 


. 00C002+<Xi 


. 000tx>2+00 


138 


.405002+02 


.600002+01 


.000002+00 


.QOCOOz^jO 


.iXiOOOE+00 


139 


.405002+02 


. 900002+01 


. 00(1002+00 


. 0000C2+<j0 


. C00002+00 


140 


.405002+02 


. 120002+02 


.00C<iOE+0O 


. OOOOOE+00 


. OOOOOE+?jO 


141 


. 420002+02 


.000002+00 


. 000002+00 


. 000002+00 


. 000002+00 


142 


.420002+02 


.300(102+01 


.0<X100E+00 


. 000002*00 


. 00(XOE+00 


143 


. 420002+02 


. 600002+01 


. 000002+00 


. 000002+00 


. 00C0(!2*00 


144 


.420002+02 


.900002+01 


. 000002+00 


.000002+00 


. 0000(€*00 


145 


. 420002+02 


. 120002+02 


. (iOOOOE+00 


. 000002+00 


.000002+00 


146 


.435002+02 


.000002+00 


. 000002+00 


. 000002+00 


.000002*^X1 


147 


. 435002+02 


.300002+01 


. 000002+00 


. 000002+00 


.000002*00 


148 


. 435002+02 


.600002+01 


.OOCOOcHiO 


. 000002+00 


. 00O002+0C 


149 


. 435002+02 


.90o(k:)E+oi 


. 00(h)0E+(>0 


. 000()02+00 


. 00C0(!2*00 


150 


.435002+02 


. 120002+02 


. 000002+00 


. 000(102+00 


.000002*00 


151 


. 450002+02 


.(WiOE+OO 


. 000002+00 


. 000002+00 


. 000002+00 


152 


.450002+02 


.300002+01 


. 000002+00 


. 000002+00 


. 000002+00 


153 


. 450002+02 


.600002+01 


.000002+00 


. 000002+00 


. 000002+00 


154 


.450002+02 


.900(X12+0i 


.000002+00 


.000002+00 


. 000002+00 


155 


. 450002+02 


. 120002+02 


. 000002+00 


. 00(X’02+00 


. 000002*00 


156 


.465002+02 


.000002+00 


.000002+00 


.000002^00 


.0000(02-00 


157 


.465002+02 


. 3000(€+01 


. (XHXtOE+OO 


. 000002+00 


.000002+00 


158 


.465002+02 


.600002+01 


. 0000(€+00 


. 000002*00 


. 000002*00 


159 


. 465002+02 


. 900002+01 


. OOOOOE+CO 


. 000002+00 


.01)0002+00 


160 


.465002+02 


. 1200<jE+02 


.000002+00 


. 000002r()0 


.000002*00 


161 


. 480002+02 


. 000002+00 


. 000002+00 


. 000002+00 


, 00G(Xi2*00 


162 


.480002+02 


.300002+01 


.(X)000E+00 


.000002^00 


.000002+00 


163 


. 480002+02 


. 600(102+01 


. 000002+<X) 


.OCOOOE+00 


.400002+02 


164 


.480002+02 


. 900002+01 


. 000002+00 


.000002+00 


.000002+00 


165 


.480002+02 


. 120002+02 


. 000002+00 


. 000002+00 


.000002+00 


END OF 


PROBLEM, 


7(i0i uir 


LIZ2D REAL WORDS OVER 20000 
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APPENDIX E 



MEF PROGRAM LISTINGS 



The program listings for MEF are provided below. Each seoarate disk file, or cc-oioiland, is 
marked by the Microsoft FORTRAN 77 ffietacommands which preceed it. 



$D0E6 

$NoaoflTCAas 

C 

c 

C F . E . « . - 3 - PROGRAM, ’BOOK’ VERSION OCTOBER 1979 
C (G.T0UZ0T , G.DHAH, COMPIESNE UNIVERSITY OF TECHNOLOGY, FRANCE) 
C 

C MODIFIED FOR IMPLMENTATION ON THE IBM PC AND THE COMUMBIA 

C MPC USING MICROSOFT FORTRAN VER 3.2 

C 

( REHE £. RUESCH, LCDR, USf^, U.S. NAVAL POSTGRADUATE SCHOOL ) 

C 

c 

c MAIN PROGRAM 

C 

c= ======== === == ========== ==== ^ =^== ==== 

IMPLICIT REAL*0(A-H,O-Z) 

CHARACTER*A BLOC, BLOCS (21) 

CHARACTER*1A INFILE, OUTFILE 
COi’KtW/COOR/NDIM, NNT, NDLN, NDLT, FAC (3) 

COMMON/COND/NCLT, NaZ, NCLNZ 

C0i«’!0N/2RND/NPRN 

COMMON/PRO./NGPE,NPRE 

CCMMON/ELEM/NELT, NNa, NTPE, N6RE, ME, NIDENT, NP6 
COMMON/ASSE/NSYM, NKG, NKE, NDLE 
COi’WON/RESO/NEQ, NRES, MRES 

COMMON/RGDT/IEL, ITPE, ITPEl, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDEG, 
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1 IPS, ICOD,IDLEO,I^£LO, IP3C 
COMMON/LIND/MLBL, NBL'*, !^K3.1 , :^KG2 
CCMMON/NLIN/EPSDL, XNOS?:, 0:€6C, X^S, DP2£, DPPSO, NPflS, 



pps.'jrEs, 



1 ITER,Ii<!£TH 

COi«^ON/VflLP/NITERl,-NWBIAG, E^SLB, SHI-T, \SS, SSWM, "CiJAC, WPL? 
CCIWON/ES/M, MR, MP, MLUN( 10) 



COWMON/fiLLCC/NVft, IVfl, IVAMPX,NREEL, NT?>. 

COMMON/LCC/LCQRG, LDLNC, L^^EQ, LDIMP, LPRN5, LPSEG, L-D, lLICE, -CORE, ONE, 

1 LPSNE, LPREE, idle, LKE, LFE, 'J-<S3, IKSD, LXGI , I.E3, LRSS, .S.G, ■J’‘E, 

2 LDLEO,LDLGO,LFGO 
CKWI/IRVL/VDE (9) , RDUW (512) , \UlL 
CC«!^ON/DUMPLfl/Y13, Y21, X13, X2l , SL’A, %% SU6, DA, D5, D6, 

ICLA, CL5, dS, SLA, SL5, SL5, B(3, 9) 

COMMON Vfl (20000) 

DflTP BLOCS/’ IMAG’ , ’ COKT' , ’ COQR’ , ’ DL^N’ , ’ CDND’ , ’ ^RVD’ , ’ PREL’ , 



« 

« 



' ELEM’ , ' SOLC’ , ’ SOLR’ , ’ LIKM’ , ’ LIND’ , ’ MI\' , ’ , 

1UQ1 pi I II II II II I I QTppi / 

VrU.r f t««> f >(•! I tt«f I >ftt I t««i f iJt ur / 



DATA NB/21/ 



C 

C+++++++++ WRITE HEADING TO CONSOLE AND REQUEST INPUT AND OUTPUT 
C FILENAMES. FILE NAMES MUST CONSSRM TO I'S DCS 2.0 

C CONVENTIONS. NO PATHNAMES ALLOWED. A NAME CAN, THEREFCRE, 

C CONSIST OF (AT MOST) 14 CHARACTERS: DEV:FI'_ENAM£.£X'’ 

C 

C FOR EXAMPLE: AtINPUT.DAT 

C 

WRITE (*,2000) 

WRITE(*,’(A\)’) ’ COMMAND-FILE NAME? ’ 

READ(*,’(A1A)’) INFILE 
WRITE!*,’ (/)’) 

WRITE!*, ’(A\)’) ’ OUTPUT FILE ?^M£? » 

READ(*,’(A1A)’) OUTFILE 
WRITE!*,' (/)’) 

WRITE!*, ’ (A) ’ ) ' PROCESSING BEGINS. . . ’ 

OPEN(MP, FILE=GUTFIL£, STATUS=’ NEW ) 

OPEN (MR, FILE=INFIL£, 3TATUS=’ OLD’ ) 

C 



C 

0 

C LENGTH OF BLANK CC»!KON IN REAL WORDS (TABLE VA) 

NVA=20000 

C HEADING 

WRITE (MP, 2000) 

2000 F0RMAT(1H1,30X,’F.E,M.3.’/25X,’ G.TCUZOT, G.DHPTT’ 

1 , /25X, ’ MODIFIED BY’ 

2 ,//25X,’ REHE £. RU£SCH’/25X, 13!' =’)//) 

C READ BLXK TITLE 

10 READ (MR, 1000) BlCC,M,Ma£v* 

WRITE!*, ’(A18,AA)») ’ PROCESSING BLOCK ’ , BLOC 
1000 F0RMAT(AA,I6,10I5) 
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C SEARCH FOR THE BLOCK TO BE EXECUTED 

DO 20 1=1, NB 

IF (BLOC. £0. BLOCS ( I) ) SO TO 30 
20 CONTINUE 

WRITE(MP,2010) 

2010 FORMAT!’ ** ERROR, MISSING BLOCK CALLING CARD’,/) 



GO TO 10 

30 GO TO (110, 120, 130, 140, 150, 160, 170, 

1 180, 190, 200, 210, 220, 230, 240, 

2 250,260,270,280,290,300,999),! 

C BLOCK TO PRINT IMAGES OF DATA CARDS ’ IMAG’ 

no CALL BLIMAG 
GO TO 10 

C BLOCK TO READ AND PRINT COMMENTS ’COMT’ 

120 CALL BLCOMT 
GO TO 10 

C BLOCK TO READ NODAL POINTS COORDINATES ’COOR’ 

130 CALL BLCOQR 
GO TO 10 

C BLOCK TO READ DEGREES OF FREEDOM PER NODE ’DLPN’ 

140 CALL BLDLPN 
GO TO 10 

C BLOCK TO READ BOUNDARY CONDITIONS ’CCND’ 

150 CALL BLCOND 
GO TO 10 

C BLOCK TO READ NODAL PROPERTIES ’PRND’ 

160 CALL BLPRND 
GO TO 10 

C BLXK TO READ ELEMENT PROPERTIES ’ PREL’ 

170 CALL BLPREL 
GO TO 10 

C BLOCK TO READ ELEMENT DATA ’ELEM’ 

180 CALL BLELEM 
GO TO 10 

C BLOCK TO READ CONCENTRATED LOADS ’SOLC’ 

190 CALL BLSOLC 
GO TO 10 

C BLOCK TO READ DISTRIBUTED LOADS ’SOLR’ 



200 CALL BLSDLR 
GO TO 10 

C BLOCK FOR 

210 CALL BLLINM 
GO TO 10 

C BLOCK FOR 

220 CALL BaiND 
G0 TO 10 

C BLOCK FOR 

230 CALL BLNLIN 
GO TO 10 

C BLOCK FOR 

240 CALL BLTEMP 



IN CORE ASSEMBLING AND LINEAR SOLUTION ’LINM’ 
ON DISK ASSEMBLING AND LINEAR SOLUTION ’LIND’ 
NON LINEAR PROBLEM SOLUTION ’NLIN’ 
UNSTEADY PROBLEM ’TEMP’ 
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60 TO 10 

C BLOCK TO COMPUTE EIGENVALUES (SUBSPACE) ’VALP’ 

250 CALL BLVALP 
GO TO 10 

C UNDEFINED BLOCS 

2S0 CONTINUE 
270 CONTINUE 
280 CONTINUE 
290 CONTINUE 
300 CONTINUE 
SO TO 10 

C end of problem ’STOP’ 

999 WRITE (MP, 2020) IVAMAX.NVfi 

2020 FORMAT!//’ END OF PROBLEM, ’,110,’ UTILIZED REAL WORDS OVER’, 110) 
STOP 
END 
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ILflRGE 

iMOFlOflTCflLLS 
BLOCK DflTfl 

C INITIALIZE LABEaED COMMONS 

IMPLICIT REAL*8(A-H,0-Z) 

C0J21QN/C003/NDIM, N?TT, NDLN, NDLT, FAC (3) 

COMMON/CCND/NaT, NCLZ, NCLNZ 

CX3K<ON/?3ND/NPaN 

COMMQN/PREL/NGPE,NPRE 

3DMMGN/ELEM/NELT, NNEL, NTPE, NGRE, ME, NIDENT, NPG 
COMMON/ ASSE/NSYM, NKG, NKE, NDLE 
CO'OTN/RESO/NEQ, NRES, MRES 

CQMMON/RGDT/IEL, IT^E, ITPEl, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDEG, 

1 IPG, ICOD, IDLEO, INELO, IPGO 
COMMON/LIND/MBL, NBLM, MKGl, MKGE 

CGMMON/NLIN/EPSDL, XNORM, OMEGA, XPAS, DPAS, DPASO, NPAS, I PAS, NITER, 

1 ITER, IMEPH 

COMMON/VALP/NITERl , NMDIAG, EPSLB, SHIFT, NSS, NSHM, TOLJAC, NVALP 
COMMON/ES/M, MR, MP, MLUN(IO) 

COMMGN/ALLX/NVA, IVA, IVAMAX, NREEL, NTBL 

COMWON/LOC/LCORG, LDLNC, LNEQ, LDIMP, LPRNG, LPREG, LLD, LLOCE, LCORE, LNE, 

1 LPRNE, LPREE, LDLE, LKE, LFE, LKGS, LKGD, LKGI , LF G, LRES, LDLG, LME, 

2 LDLEO,LDLGO,LFGO 

DIMENSION LCORS(l),LDLNC(l),LNEQ(l),LDIMP(l),L?RNG(l),LPREG(l), 

* LLD(l),LLOCE(l),LCORE(l),LNE(l),LPRNE(l),LPREE(l),LDL£(l), 

* LKE(1),LFE(1),LKGS(1),LKGD(1),LKGI(1),LFG(1),LRES(1),LDLG(1), 

* LME(l),LDLEO(l),LDLGO(l),LFGO(l) 

DIMENSION LXXC25) 

EQUIVALENCE (LXX(l),LCORG) 

C COMMON /COOR/ 

DATA NNT/20/, NDLN/2/, NDIM/2/, FAC ( 1 ) , FAC (2) , FAC (3) /3*1. DO/ 

C COMMON /PRND/ 

DATA NPRN/0/ 

C COMMON /PRa/ 

DATA .NG?E/0/,NPRE/0/ 

C COMMON /ELEM/ 

DATA NELT/20/, NNa/fl/, NTPE/1/, NGRE/1/, ME/1/, NIDENT/0/ 

C COMMON/ASSE/ 

DATA NSYM/0/ 

C COMMON /RESO/ 

DATA NRE3/0/,MRES/2/ 

C COMMON /RGDT/ 

DATA ITPEl/0/ 

C COMMON /LIND/ 

DATA MKGl/A/,MKG2/7/ 

C COMMON /NLIN/ 

DATA £PSDL/l.D-2/,OMEGA/l.DO/,DPAS/.2DO/,NPAS/l/,NITER/5/, IMETH/1/ 
C CaiMON /VALP/ 
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DflTfl NITERl/10/, M^DIAG/0/, EPS'-r/l . D-3/, bn 
I NSW, 1/12/, TOLJflC/:. D-12/, NVALP/3/ 

C CC10 /ES/ 

DflTfl 1R/5/,MP/6/ 

C COMMON /ALLOC/ 

DATA IVA/l/,iVAMAX/l/,NTBL/25/ 



/O.DO/,\SS/5/, 



C DEFINE HERE THE NUMBER OF I.NTEGSRS CONTAINED IN A nEA. 

C FOR THE COMPUTER EXPLOY0 



c 


EXAMPLES: IBM 


SIMPLE PRECISION 


nreel.es. 1 


c 


IBM 


DOUBLE PRECISION 


NREEL.EG.2 


c 


CDC 




NREEL.EQ.l 



DATA NREa/2/ 



C 

C COMMON /LOC/ 

DATA LXX ( 1 ) , LXX (2) , LXX (3) , LXX (4) , LXX (5) , LXX (5) , LXX (7) , LXX IE) , 

1 LXX(9),LXX(10),LXX(ll),LXXa2),LXXn3),LXX(14),LXX-;:E), 

2 LXX ( 16) , LXX ( 17) , LXX ( 18) , LXX ( 19) , LXX (20) , LXX (21 ) , LXX (22) , 

3 LXX (23) , LXX (24) , LXX (25) /25*1/ 

END 
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^LfiRGE 

$NOFLOftTCfiLLS 

$DSBU8 

SUBROUTINE ERREUSdERR, II, I£, INIV) 

C PRINT ERROR !<ESSPGE3 FOR BLOCKS REflDINS DSTfi 
COXMON/ES/M, NR, NP, NDUNNY ( 1C) 

C 

C BLOCK ’COOR’ 

IF(IERR.6T.19) GO TO 200 
IE=IERR-10 

GO TO (110, 120, 130, 140, 150, l&O, ISO, 130), IE 

no WRITE(NP,2110)I1,I2 

2110 FORMAT (’ **» ERROR, ?IRST NODE NUMBER (’, 14,’ ) IS GREATER TJAN NNT= 
l’,I4) 

GO TO 900 

120 WRITE(MP,2120)I1,I2 

2120 FORMAT!’ *♦ ERROR, SECOND NODE NUMBER!’ , 14, ’ ) IS GREATER THAN NNT= 
l’,I4) 

60 TO 900 

130 HRITE(MP,2130)I1,I£ 

2130 FORMAT!’ ♦♦ ERROR, .NODAL NUMBER OF D.O.F. (’ , 14, ’ ) IS GREATER THAN 
1NDLN=’ , 14) 

SO. TO 900 

140 WRITE (MP, 2140) 

2140 FORMAT!’ ** ERROR, FIRST AND SECOND NODS NUMBERS ARE INCOMPATIBLE 
IWITH THE GENERATION PARAMETER’ ) 

GO TO 900 

150 WRITE (MP, 2150) II 

2150 FORMAT!’ ** ERROR, NODE ’,14,’ IS DEFINED MORE THAN ONCE’) 

GO TO 900 

160 WRITE !MP, 21 60) II 

2160 FORMAT!’ ** ERROR, NODE ’,14,’ IS NOT DEFINED’) 

GO TO 900 

180 WRITE (MP, 2180) 12, II 

2180 FORMAT!’ ** ERROR, GENERATED NODES NUMBER!’ , 14, ’ ) IS LESS THAN NNT 
I=’,I4) 

GO TO 900 

C BLOCK ’DLPN’ 

200 IF(IERR.GT.29) GO TO 300 
IE=IERR-20 
GO TO (210,220), IE 

210 WRITE(MP,22!0)H,I£ 

2210 FORMAT!’ ** ERROR, NUMBER OF D.O.F. !’,I2,’) IS GREATER THAN NDLN= 
l’,I2) 

SO TO 900 

220 WRITE !MP, 2220) I 1,12 

2220 FORMAT!’ ** ERROR, NODE NUMBER!’ , 14, ’ ) IS GREATER THAN 
1NNT=’,I4) 
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GO TO 900 



c 


BLOCK ’COND’ 




300 


IF!IERR.GT.39)G0 TC 


400 




IE=IERR-30 






GO TO (900,320,900), 


IE 


320 


SO TO 220 




C 


BLOCK ’PREL’ 




400 


IF!!ERR.GT.49) GO TO 


500 




IE=IERR-40 






GO TO (410,900), IE 




410 


«RITE!M?,2410)I1,I2 





2410 FORMAT!’ ** ERROR, GROUP NUf^BER C,I3,’) IS GREATER THAN NG?E=’,:3 
1 ) 

GO TO 900 

C BLOCK ’aEM’ 

500 IF(IERR.GT.59) GO TO 900 
IE=IERR-50 

SO TO (510, 900, 530, 540, 550, 560, 570 1, IE 
510 WRITE(«P,2510)Il,i£ 

2510 FORMAT!’ ♦* ERROR, NUMBER OF NODES !’,I3,’) IS GREATER THAN NN£L=’ 
1, 13) 

SO TO 900 

530 WRITE !MP, 2530) 1 1,I£ 

2530 FORMAT!’ ** ERROR, PROPERTY NUMBER !’,I3,’) IS GREATER THAN NG5E=’ 
,113) 

GO TO 900 

540 WRITE !«P, 2540) II, I£ 

2540 FORMAT!’ ** ERROR, GROUP NUMBER !’,I3,’) IS GREATER THAN NGRE=’,I3 
1 ) 

SO TO 900 

550 WRITE !«P, 2550) 11,12 

2550 FORMAT!’ « ERROR, ELEMENT NUMBER !’,I4,’) IS GREATER THAN NEIT=’, 
114) 

GO TO 900 
560 GO TO 220 
570 WRITE(MP,2570)I1,I2 

2570 FORMAT!’ ♦* ERROR, NUMBER OF ELEMENTS !’,I4,’) IS GREATER THAN NEL 
1T=’,I4) 

C END 

900 11=12 

IF!INIV.GE.2) STOP 

RETURN 

END 
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SUBROUTI.MZ ESPAC£( ILONB, IREEL, TBL, IDES) 



c=^ 

c 


TO ALLOCATE A REAL OR 


INTE3ER TABLE IN ARRAY VA 


c 


•INPUT 




c 


ILONG 


LENGTH OF THE TABLE TO BE ALLI 


c 




(IN REAL OR INTEGER WORDS) 


C 


I REEL 


TABLE TYPE : 


c 




.EQ.0 INTEGER 


c 




.EQ.l REAL 


c 


TBL 


NAME OF THE TABLE (A4) 


c 


OUTPUT 




c 

r=: 


IDEB 


TABLE TO BE ALLOCATED STARTS 



IMPLICIT R£flU8(fi-H,0-Z) 

CHflRflCTER*4 TBL 
COMMON/ES/M, MR, M?, MDUMMY (10) 

CCMMON/fiLLOC/NVP, IVfl, IVRMflX, NREEL, IDUKMY 
COWtON Vfl(l) 

DIMENSION Kfl(I) 

EQUIVALENCE IVA(1),KA(D) 

DATA ZERO/O.DC/ 

C 

C CALCULATE THE TABLE LENGTH IN REAL WORDS 

ILGR=ILaNG 

IF (I REEL. EQ. 0) ILGR= ( ILCNG+NRE3.-: ) /NREEL 
IVA1=IVA+ILGR 

C C.HECK IF ENOUGH SPACE IS AVAILABLE 

IFIIVA1.LE.NVA) GO TO 20 

C AUTOMATIC EXTENSiaN OF THE BLANK COMMON I- CORRESPONDING 

C SYSTEM CaWAND EXIST ON THE COMPUTER USED 

C CALL EXTEND (I VA1,IERR) 

IF(IERR.EQ.l) SO TO 10 
NVA=IVA1 
C GO TO 20 

C ALLOCATION ERROR (NOT ENOUGH SPACE) 

10 WRITE («P, 2000) TBL,IVA1,NVA 

2000 FORMAT!’ **** ALLOCATION ERROR, TABLE ’,AA/’ REQUIRED S?AC 
1 REAL WORDS, AVAILABLE SPACE; ’,19,’ REAL WORDS’) 

STOP 

C ALLOCATE TABLE 

20 IDEB=IVA+l 

IVA=IVAl 

IF(IVA.GT.IVAMAX) IVAMAX^IVA 
IF(M.GT.O) WRITE (MP, 2010) TBL, IDEB, IVAl 
2010 F0RMAT(60X, ’TABLE ’,AA,’ SOES FROM VA(’, 17, ’ ) tq VA(’ , 17, ’ )’ ) 

C INITIALIZE THE ALLOCATED TABLE TO ZERO 

I1=IDEB 

IFdREEL.EQ.O) I1=(I1-1)*NREEL+1 

I2=I1+IL0NG-1 

IF(IREEL.EQ.O) GO TO 40 
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LtJ 



30 



DO 30 1=11,12 
VfllI)=ZEaO 
RETURN 
AO 00 50 1=11,12 

50 Kfl(I)=0 

RETURN 
END 



SUBROUTINE VIDEdDEB, IS££L,TBL) 

C TO DELETE fl TABLE FROM Vfl, FOLLOWED BY C0NPACTIN6 
C INPUT 

C IDEB FIRST POSITION OF TABLE TO BE DELETED 

C IREEL TYPE OF TABLE (SEE ESPfiCE) 

C TBL NAME OF THE TABLE lAA) 

IMPLICIT REAL*8(A-H,0-Z) 

CHARACTER*A TBL 
COWON/ES/M, MR, KP, MDUMMY ( 10) 

COMMON/ALLOC/NVA, IVA, IVAMAX,NREEL,NTBL 
C0MM0N/L0C/LXX(25) 

COMMON VA(1) 

C 

C SEARCH FOR THE FIRST PGSITIGN OF NEXT TABLE 

I1=IVA+1 
DO 10 I=1,NTBL 
IF(LXX(I).L£.IDEB) GO TO 10 
IF(LXX(I).LT.I1) I1=LXX(I) 

10 CONTINUE 

C SHIFT ALL TABLES AFTER THIS 

ID=I1-IDEB 

IF(I1.EQ.IVA+1) 60 TO AO 
DO 20 I=1,NTBL 

IF(LXX(I).GT.IDEB) LXX(I)=LXX(I)-ID 
20 CONTINUE 

DO 30 1=11, IVA 
J=I-ID 

30 VA(J)=VA<I) 

C PRINT 

AO IVA=IVA-ID 

IF(M.GT.O) WRITE («P, 2000) TBL, ID, IDEB 
2000 FORMAT (60X, ’DELETED TABLE ’,AA,’ COMPACTING ’,17,’ REAL WORDS AFTE 
IR VA(’,I7,’)’) 

RETURN 

END 
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SUBROITINE BLWAG 



C TO CALL AND EXECUTE BLOCK ’ IMA8’ 

C TO PRINT OUT THE IMAGE OF DATA CARDS 

C====================================================== 

IKPLICIT REAL*8(A-H,0-Z) 

COMMON/ES/M, MR, XP, Ml, MOUMNY (S) 

COKMON/TSVL/CART (20) , RDC.W (501 ) , NULL 
DATA ICARTM/40/ 

C 

IF(Ml.EQ.O) «l=«R 
WRITE(MP,2000) 

2000 FORMAT(///, IX, ’IMAGE OF DATA CARDS’ /1X,29(’ =’),/) 

WRITE (WP, 2005) 

2005 FORMAT!/ 

1 50X,’C0LUMN N U M B £ R’,/,13X,’CASD’,8X, 

2 10X,’1’,SX,’2’,9X,’3’,9X,’4’,9X,’5’,9X,’6’,SX,’7’,9X,’8’,/, 

3 12X, ’ NUMBER’ , 8X, 8 ( ’ 1234567390’ ) , /, 12X, 3 ( ’ -’ ) , faX, 80 ( ’ -’ ) ) 
ICART=0 

ICART1=0 

10 READ (Ml, 1000, END=30) CART 
1000 FORMAT (20A4) 

ICART=ICART+1 
ICAfiTl=!CARTl+l 
IF(ICART1.LE.ICARTM) SO TO 20 
HRITE(MP,2010) 

2010 FORMAT ( 12X, 8 ( 1H-) , 6X, 80 ( 1H-) , /, 13X, ’ CARD’ , 9X, 8 (’ 1234567890' ) , /, 

1 12X,’NUMBER’,8X,9X,’1’,9X,’2’,9X,’3’,9X,’4’,9X,’5’,9X,’6’, 

2 9X,’7’,9X,’8’,/,50X,’C 0 L U M N NUMBER’) 

WRITE (MP, 2015) 

2015 FORMATdHl,//) 

WRITE (MP, 2005) 

ICART1=0 

20 WRITE (MP, 2020) ICART,CART 

2020 F0RMAT(10X,Ii0,6X,20A4) 

GO TO 10 

30 WRITE(MP,2010) 

WRITE (MP, 2030) 

2030 FORMAT!///, 51X, ’£ N D OF DATA’,/,1H1) 

REWIND Ml 

READ (Ml, 1000) CART 

RETURN 

END 
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SUBROUTINE BLCCMT 



C TO CflLL AND EXECUTE BLOCK ’COM"’ 

IMPLICIT REAL*8(ft-H,0-Z) 

CHARACTER*4 BLANC, CART 
COKMON/ES/K, MR, MP, MOUMMY ( 10) 
COlWON/TRVL/CART (20) , RDUMMY (51 1 ), NULL 
DATA BLANC/’ ’/ 

C 

WRITE («P, 2000) 

2000 FORMAT!//’ COMMENTS’/’ ’,10(’=')/) 

C READ A COMMENT CARD 

10 READ (MR, 1000) CART 

1000 FORMAT (2CA4) 

C SEARCH FOR A WHOLLY BLANK CARD 

DO 20 1=1,20 

IF(CART(I).NE.BLANC) BO TO 30 
20 CONTINUE 

RETURN 

30 WRITE (MP, 2010) CART 

2010 FORMAT (1X,20AA) 

SO TO 10 
END 
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SUBROUTINE BLCOOR 

C TO CALL BLOCK COOR 

C TO READ NODAL COORDINATES 

IMPLICIT REAL*8(A-H,Q-2) 

CHARACTER*^ TBL 

COKMON/COOR/NDIM, NNT, NDLN, NDLT, FAC <3) 

COMMON/ES/M, MR, MP, Ml, MDUMMY (9) 

COMMON/ALLOC/NVA, IDuMMY (4 ) 

COMMON/LOC/LCORG, LDLNC, LDUMMY (£3) 

COMMON/TRVL/FACl (3) , IN(3) , RDUMMY(517) 

COMMON VA(l) 

DIMENSION TBL(2) 

DATA 2ERC/0.00/ 

C 

C+++ THIS IS COMMENTED OUT BECAUSE OF T^E MS -ORTRAN CGMO- 
C+++ ILER BUG SHICH WILL NOT INITIALI2E 5LAR6E ARRAYS 

C+++ THIS ARRAY IS NOW INITIALI2ED BY A CALL ^3 INITL WHICH 

C+++ EXISTS SCLaY TO INITIALI2E ^RBLE NAMES. 

C 

C DATA TBL/’ OCRS’,’ DLNC’/ 

C 

C HERE IS THE CALL TO GET AROUND THE COMPILER BUG 

C 

CALL INITBL (TBL, ’COOR’) 

C 

C+++ ALL OF THIS WAS TO GET AROUND THE MICROSOFT 
C+++ COMPILER BUS 

C 

C 

C BLOCK HEADING 

IF(Ml.EQ.O) M1=MR 
READ(M1, 1000) IN,FAC1 
1000 FORMAT(3I5,3F10.0) 

C DEFAULT OPTIONS 

IF(IN(l).GT.O) NNT=IN(r) 

IF(IN(2).GT.C) NDLN'=IN(2) 

IF(IN(3).GT.O) NDI«=IN(3) 

DO 10 1=1,3 

IF(FAC1(I).NE. 2ER0) FPC(I)=FAC1(I) 

10 CONTINUE 

C PRINT BLOCK PARAMETERS 

WRITE (MP, 2000) M, NNT, NDLN, NDIM, FAC, NVA 
2000 FOR«AT(//’ INPUT OF NODES (M=», 12, ’ )’/’ ’,18(’=’)/ 



1 


15X,’MAX. NUMBER OF NODES 


(NN‘')=’,I5/ 


2 


15X,’MAX. NUMBER OF D.C,F. OER NODE 


(NDLN) =’,15/ 


3 


15X,’ DIMENSIONS OF THE PROBLEM 


(NDIM) =’,15/ 


4 


15X,’ COORDINATE SCALE FACTORS 


(FAC)=’,3E12 


5 


15X,’ WORKSPACE IN REAL WORDS 


(NVA)=’,I10) 
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C ALLOCATE SPACE 

IF(LCORG.EQ.I) CALL ES?AC£(NNT*.MDIM, I,TBl(l),LCGR6) 
IF(LDLNC.EQ.l) CALL ESPACEi\NT+l,0,TBL{£),LDL*JC) 

C EXECUTE THE BLOCK 

CAa EXCCOR (VA (LCORG) , VA (LDLNC) ) 

RETUR^J 

END 





SUBROUTINE EXCOOR(VCORG,KDLNC) 




L 

c 

c 


TO EXECUTE BLOCK ’COOR’ 
READ NODAL COORDINATES 




t 


IMPLICIT REAL*9(A-H,0-Z) 

COMMON/COOR/NDIM, NNT, NDLN, NDLT, FAC (3) 
COMMON/ES/M, MR, MP, Ml, KDUMMY (9) 
COMMON/TRVL/Xl (3) , X2(3) , RDUNMY (515) , NULL 
DIMENSION VCQRG(*),KDLNC(*) 

DATA SP£a/1.23456789D31/ 




L 

p 


TWTTTQI T7C 




u 

10 


I1=(NNT-1)*NDIM+1 
DO 10 I=1,I1,NDIM 
VCORG(I)=SPECL 





C READ NODAL DATA CARDS 

IF(M.GT.O) WRITE (MP, 2000) 

2000 FORMAT (//’ NODAL DATA CARDS’/) 

20 READ(Ml, 1000) INI, XI, IN2, X2, INCR, IDLN 
1000 F0RMAT(2(I5,3F10.0),2I5) 

IF(M.GT.O) WRITE (MP, 2010) IN’l, XI, IN2, X2, INCR, IDLN 
2010 FORMAT!’ )))))’, 2(I5,3E12.5), 215) 

IF(IN1.LE.0) GO TO 60 

C DECODE THE CARD 

IF(INl.GT.NNT) CALL ERRSURdl, IN1,NNT,0) 

IF ( IN2. GT. NNT) CALL ERRFdR ( 12, IN2, NN", 0 ) 
IF(IN2.LE.0) IN2=IN1 

IF(IDLN.GT.NDLN) CALL £RREUR(13, IDLN,NDLN,0) 

IF(IDLN.LE.O) IDLN=NDLN 

IF(INCR.EQ.O) IN€R=1 

I1=<IN2-IN1)/INCR 

I2=IN1+I1*INCR 

IFdl. £0.0)11=1 

IF(IN2.NE.I2) CALL ERRSURdA, IN2, IN2,0) 

C GENERATE NODES BY INTERPOLATION 

DO 30 I=1,NDIM 
Xld)=Xl(I)*FACd) 

X2d)=X2d)*FACd) 

30 X2d) = (X2d)-Xld))/Il 
11=0 

I2=(IN1-1)*NDIM+1 
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I3=aNCS-l)»NDI>l 
DO 50 IM=IN1,:N2,INCR 
KDLNC(IN+1)=ICLV 

IF (VCORG ( 12) . M€. SPSCL) CALL ERREuS ( 15, IN, IN, 0) 

DO 40 I=1,NDIM 
VC0R8(I2)=Xl(I)+X2(I)*n 
40 12=12+1 

11 = 11+1 
50 12=12+13 

GO TO 20 

C CHECK FOR ?!ISSINB NODES 

60 Il=NNT*NDIM+i 

12=0 

I3=NNT+1 
DO SO 1=1, NNT 
I1=I1-NDI« 

13=13-1 

IFlVCORGdD-SPECL) 70,80,70 
70 IF(I2.E0.0) 12=13 

GO TO 90 

80 IF(I2. EQ. 0) CALL ERRE'JRl 16, 13, 13, 0) 

IF(I2.NE.0) CALL ESREUR(17, 13, 13, 1 ) 

90 CONTINUE 

IF ( 12. NE. NNT) CALL ERREUR ( 18, NNT, 12, 0) 

C TOTAL NUMKR OF D.C.F. 

NDLT=0 
I1=NN’T+1 
DO 100 1=2,11 
100 NDLT=NDLT+KDLNC(I) 

C OUTPUT 

IFIM.LT.2) 60 TO 120 
WRITE (»P, 2020) 

2020 F0RKAT(/10X,’N0Dc D.0.F.’,5X,’X’,1IX,’Y’,11X,’Z’/) 
11=1 
I2=NDI« 

DO no IN=1,NNT 

WRITE(MP,2030) IN,KDLNC(IN+1), (VCORG(I), 1=11, 12) 
2030 F0RKAT(10X,2!5,3£12.5) 

I1=I1+NDIK 
no I2=I2+NDIM 
120 RETURN 
END 
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SliBROUTINE BLDLPN 



C TO CflLL BLOCK ’DlPN’ 

C TO READ NUMBER OF D.O.F. PER NODE 

IMPLICIT REAL*8(A-H,0-Z) 

COMMON/ES/M,MR,MP,Xl, MDUMMY(S) 

COMMGN/LOC/LCORG, LDLNC, LDUMKY (23) 

COMMON VA(I) 

0 

IF(Ml.EQ.O) M1=MR 
WRITE(MP,2000) M 

2000 FORMAT(//’ INPUT a<^ D.O.F. (M=’ , 12, » )’ /’ ’,17(’=»)) 
CALL EXDLPN(VA(LDLNC)) 

RETURN 

END 
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SUBROUTIVE EXDLDNiKDLNC) 



C TO EXECUTE BLOCK ’DLPN’ 

C TO READ THE NU-^BER OF D.O,F. PER ^iODE 

IMPLICIT REAL*8(fl-H,0-Z) 

COKKON/COOR/NDIM, NNT, NDLN', NDLT, FN'JLL (3 ) 
CCMKON/ES/M, MR, MP, Ml, KDUMMY (9) 
COMMON/TRVL/Kl (15) , RDUKMY (514) 

DIMENSION KDLNCU) 

IF(M.ST.O) WRITE (MP, 2000) 

2000 FORMAT! //’GROUP OF D.C.F.V) 

C READ A GROUP CARD 

10 READ (Ml, 1000) IDLN,K1 
1000 F0RMAT(16I5) 

IF(M. GT. 0) WRITE (MP, 2010) IDLN, K1 
2010 FORMAT!’ )))))’, 1615) 

IF(IDLN.LE.O) SO TO 40 

IF (IDLN. GT. NDLN) CALL ERREUR (21, IDLN, NDLN, 1) 

C STORE D.O.F. NUMBERS 

20 DO 30 1=1,15 
J=K1(I) 

IF(J.LE.O) GO TO 10 

IF(J.GT.NNT) CALL ERR£UR(22, J,NN7, I) 

30 KDLNC(J+1)=IDLN 
READ(«1, 1010) K1 
1010 FORMAT (5X, 1515) 

IF(M.GT.O) WRITE (MP, 2020) K1 
2020 FORMAT!’ )))))’,5X,15I5) 

SO TO 20 

C TOTAL NUMBER OF D.O.-. 

40 NDLT=0 
J=NNT+1 
DO 50 1=2, J 

50 NDLT=NDLT+KDLNC(I) 

RETURN 

END 
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SUBROUTINE B.COND 
C TO CALL BLOCK ’COND’ 

C TO READ BOUNDARY CONDITIONS AND GENERATE TABLE (NEQ) 

IMPLICIT REAL*8(A-H,0-Z) 

CHARACTER*^ TBL 

COMMON/COOR/NDIM, NNT, NDLN, NDLT, FNULl (3) 

COKMON/COND/NCLT, NaZ, NOA'Z 
C0i«10N/ALL0C/NVA, IVA, IDUMMY(3) 

COKMON/ES/M, MR, MP, Ml , MDUMMY (S) 

CQMMON/LOC/LCORG, LDLNC, LNEQ, LDIMP, LDUMMY (21 ) 

COMMON VA(1) 

DliCNSION TBL(2) 

C 

C+++ THIS IS COMMENTED OUT BECAii'SE 0- THE MS FORTRAN COMP- 
C^-H• ILER BUG WHICH WILL NOT INITIALIZE 5LAR3E ARRAYS 

C+++ THIS ARRAY IS NOW INITIALIZED BY A CALL TO IMTBl WHICH 

C+++ EXISTS SOLELY TO INITIALIZE TABLE NAMES. 

C 

C DATA TBL/’ NEQ %’DIMP’/ 

C 

C HERE IS THE CALL TO GET AROUND THE COMPILER BCG 

C 

CALL INITBL (TBL, ’COND’) 

C 

C+++ ALL THIS WAS SIMPLY TO GET AROUND THE MICROSOFT 
C+++ COMPILER BUG 

C 

C 

IF(Ml.EQ.O) M1=MR 
WRITE (MP, 2000) M 

2000 FORMAT (//’ INPUT OF BOUNDARY CONDITIONS (M=’ , 12, ’ )’ /’ ’, 

1 33(’=’)/) 

IF(LNEQ.EQ.l) CALL ESPACE (NDLT, 0, TBL (1),LNEQ) 

IF (LDIMP. EO.l) CALL ESPACE (NDLT, 1, TBL (2), LDIMP) 

CALL EXCOND(VA(LCORG) , VA(LDLNC) , VA(LNEQ) , VA(LDIMP) ) 

CALL VIDE (LDIMP+NaT, 1 , TBL (2) ) 

RETURN 

END 
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SUBROUTINE EXCO.ND (VC0R3, '0)LNC, KNEG, VDIM?) 

C TO EXECUTE BLOCK ’COND’ 

C READ BOUNDARY CONDITIONS AND GENERALS TABLE (N£S) 

IMPLICIT REAL#8 (A-H,0-Z) 

COMMON/COOR/NDIM, NN7, NDLN, NDLT, FNULL (3) 

COMMON/COND/NCLT, NaZ, NCLNZ 
C0W0N/RES0/NE2, NFILLR (2) 

COMMON/ES/M, MR, MP, Ml , MDUMKY (3) 

COMMON/TRVL/ KV ( 16) , V ( 10) , H (20) , ICOD ( 10) , RDUMMY (473) , NULL 
DIMENSION VCORG(*) , KDLNC(«) , KNEQ (*) , VDIM?(*) 

DATA L7/7/, L8/8/, L16/16/ , Xl/0. OCO/, X2/0. ODO/, X3/0. ODO/, ZERO/0. DC/ 

C 

C CUMUIATIVE TABLE KDLNC 

DO 10 IN=1,NNT 

10 KDLNC ( IN+1 ) =KDLNC ( IN) +KDLNC ( IN+1 ) 

I1=NNT+1 

IF(M.GE.2) WRITE (MP, 2000) (KDLNC(IN), IN=1, ID 
2000 FORMAT (//’ NUMBER OF D.O.F. PRECEDING EACH NODE (DLNC)’/ 

1 (1X,10I10)) 

C INITIALIZE 

NCLT=0 

NCLNZ=0 

NCLZ=0 

IF(M.BE.O) WRITE (MP, 2010) 

2010 FORMAT!//’ BOUNDARY CONDITIONS CARDS’ /) 

C READ A B.C. GROUP CARD : 10 CODES + PRESCRIBED VAL. 

20 READ(M1,1000) ICOD, (V(I), 1=1, L7) 

1000 F0RMAT(10I1,7F10.0) 

IF(M.8E.O) WRITE (MP, 2020) ICOD, (VC), I=1,L7) 

2020 FORMAT!’ )))))’, 101 1,7E12. 5) 

C CHECK FOR A BLANK CARD 

J=0 

DO 30 1=1, 10 
30 J=J+ICOD(I) 

IF(J.EQ.O) GO TO no 

C READ ADDITIONAL CARD IF REQUIRED 

12=0 

DO 40 ID=1,NDLN 
IF (ICOD! ID). LT. 2) GO TO 40 
12=12+1 

IF (12. ME. L8) 80 TO 40 
READ(M1,1010) (V(I),I=L8,NDLN) 

1010 FORMAT (10X,7FI0.0) 

IF (M. GE. 0) WRITE(MP, 2030) (V( I ) , I=L8, NDLN) 

2030 FORMAT!’ )))))’, 10X,7E1 2.5) 

40 CONTINUE 

C READ NODE CARDS 

50 READ(M1,1020) (KV(IN), IN=1,L16) 
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1020 FGR«8Ta6I5) 

IF(M.SE.O) WRITE (i*!P, 20^0) (KV(!N), IN=1,L16) 

20A0 FORMAT!’ ))>)>’, lOX, 1615) 

C FORM NEQ 

DO 100 IN=1,L16 
I2=KV(IN) 

C END OF GROUP OF B.C. OR END OF NODES OR ANALYSIS OF A NODE 

IF (12 ) 20,20,60 

60 IF ( 12. ST. NNT) CALL ERREUR (32, 12, NNT, 1 ) 

I1=KDLNC(I2) 

IDN=KDLNC(I2+1)-I1 

C GENERATE VDIMP, PUT IT IN KNEQ (THE PRESCRIBED D.D.F. ADDRESS) 

IV=0 

DO 90 ID=1,IDN 
11 = 11+1 
IC=IC0D(ID)-1 
IF(IC) 90,70,80 
70 NaT=NCLT+l 

VDIMP (NCLT)=ZERO 
NCL2=NCLZ+1 
KNEQ(Il)=-NaT 
GO TO 90 

80 NaT=NaT+l 
IV=IV+1 

VDIMP (NaT)=V( IV) 

NCLNZ=NCLNZ+1 
KNEQ(Il)=-NaT 
90 CONTINljE 
100 CONTINUE 

C ADDITIONAL CARD NODE NUMBERS 

SO TO 50 



C GENERATE EQUATION NU»*BERS IN NEQ 

110 11=0 

DO 150 IN=1,NNT 
ID=KDLNC(IN) 

120 ID=ID+1 

IF(ID.GT.KDLC(IN+D) GO TO 150 
IF (KNEQ (ID)) 120,130,120 
130 11=11+1 

KNEQ (ID) =11 
GO TO 120 
150 CONTINUE 
NEQ=I1 

C OUTPUT 

IF(M.LT.O) GO TO 170 

WRITE(MP, 2050) NNT, NDLT, NEQ, NCINZ, NaZ, NCLT 
2050 FORMAT!// 

1 15X, ’TOTAL N*UMBER NODES 

2 15X, ’TOTAL NUMBER OF D.O.F. 

3 15X,’ NUMBER OF EQUATIONS TO BE SOLVED 

A 15X,’ NUMBER OF PRESCRIBED NON ZERO D.O.F. 



(NNT) =’,15/ 
(NDLT) =’,15/ 
(NEQ) =’,15/ 
(NCLNZ)=’,I5/ 
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5 15X,’MUi1B£R OF PRcSCSISED Z£RCi D.C.'. (\CLZ)=’,I5/ 

6 15X, ’ TOTAL NUXBER OF PRESCRIBED D.O.F. (NClT)=*,I5/) 

IF(M.0£.2.A.NiD.NCLT.GT.O) WRITE (MP.SOEO) (VOIM2C) , I=i, NCLT) 

2060 FORMAT (//’ PRESCRIBED VALUES (VDIMP)’//(10X, 10E12.5)) 

WRITE (MP, 2070) 

2070 FORMAT (//' NODAL COORDINATES ARRAY'// 

1 ’ NO D. L. ’ , 5X, ' X’ , 12X, ’ Y’ , 12X, ’ V , lOX, ’ EQUATION NUMBER 
2(NEQ)’/) 

12=0 

DO 160 IN=1,NNT 

11=12+1 

I2=I2+NDIM 

IDl=KDLfC(IN)+l 

ID2=KDLVC(IN+1) 

ID=ID2-IDI+1 
IF(ID2.LT.ID1) I02=ID1 
X1=VC0RS(I1) 

IF(NDIM.GE.2) X2=VCGRG(I1+1) 

IF(NDIM.SE.3) X3=VC0RG(Il+2) 

160 WRITE (MP, 2080) IN, ID, X1,X2, X3, (KNEQ(I), I=ID1, ID2) 

2080 FORMAT (IX, 215, 3E12. 5, lOX, 1016) 

170 RETURN 
END 
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SUBROUTINE BLPRND 



C TO CALL BLOCK ’PRND’ 

C TO READ NODAL PROPERTIES 

IMPLICIT RHAL*8(A-H,0-2) 

CHARACT£R*A TBL 

COMMON/COCR/NDIM, NNT, NNULK2) , FNULL (3) 

COKMON/PRND/NPRN 
CC^KON/£S/M, MR, MP, Ml, MDUMMY (3) 

COMMON/LOC/LXX (4) , LPRNG, LDUMMY (£0) 

COMMON VA(1) 

DATA TBL/’PRNG’/ 

C 

IF(Ml.EQ.O) M1=MR 
READ (Ml, 1000) NPRN 
1000 FORMAT (IS) 

WRITE (MP, £000) M,NPRN 

2000 FORMAT!//’ INPUT OF NODAL PROPERTIES (M=* , 12, ’ ) ’ /’ ’,30(’=’)/ 
1 15X, ’ NUMBER OF PROPERTIES PER NODE (NPRN) =’ , 15) 

IFILPRNG. EQ. 1) CALL ES?ACE(NNT*NPRN, 1, TBL, LPRNG) 

CALL EXPRND(VA (LPRNG)) 

RETURN 

END 



SUBROUTI^E EXPRND(VPRNG) 

C TO EXECUTE BLOCK ’PRND’ 

C READ NODAL PROPERTIES 

C^~— — ==—====— ~ ~"= =s=======—==== 

IMPLICIT R£AL*8(A-H,0-Z) 

COMMaN/COOR/NDIM,NNT, NNULL(2) ,FNULL(3) 

COMMON/PRND/NPRN 
COMMON/ES/M, MR, MP, Ml, MDUMMY (9) 

DIMENSION VPffi^G(t) 

C 

C READ PROPERTIES NCDEWISE 

I1=NNT»NPRN 

READ(M1, 1000) (VPRNG(I), 1=1, ID 
1000 FORMAT (8F10.0) 

IF(M.GE.O) WRITE (MP, 2000) (VPRNG(I), 1=1, ID 
2000 FORMAT!//’ CARDS OF NODAL PROPERTIES’/ (’ )))))’,8E12.5)) 
RETURN 
END 
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SUBROUTINE BLPREL 



C TO CALL BLOCK ’PRa’ 

C TO READ aEMENT PROPERTIES 

IMPLICIT REAL*8(A-H,0-Z) 

CHARACTER*A TBL 
COMW3N/PRa/NSPE,NPRE 
COMMONVES/M, NR, «P, Ml , NDUNMY (3) 

CCMMON/LOC/LXX <5) , L?REG, LDIW ( IS) 

COMNON/TRVL/ IN (2) , RDUNMY (520) , NULL 
COMWN VA(1) 

DIMENSION TBL (2) 

C 

C+++ THIS IS COMMENTED OUT BECAUSE OF THE NS =GRTRAN CCMP- 
C+++ ILER BUG SHICH WILL .SCT INITIALIZE $LARSE ARRAYS 

C+++ THIS ARRAY IS NOW INITIALIZED BY A CAa "0 INITBL WHICH 

C+++ EXISTS SOLaY TO INITIALIZE TABLE NAMES. 

C 

C DATA TBL/’ PREG’,’V ’/ 

L 

C HERE IS THE CALL TO GET AROUND THE COMPILER BUG 

C 

CALL INITBL (TBL, ’PREL’) 

C 

C+++ ALL THIS WAS SIMPLY TO SET AROUND THE MICROSOFT 
C+++ COMPILER BUS 

C 

c 

IF(Ml.EQ.O) Mi=MR 

C READ NUMBER OF GROUPS AND PROPERTIES PER GROUP 

READ (Ml, 1000) IN 
1000 FORMAT (215) 

IF(INd).GT.O) NGPE=IN(1) 

IF(IN(2).GT.O) NPRE=IN(2) 

WRITE (MP, 2000) M,NGPE,NPRE 

2000 FORMAT!//’ INPUT OF ELEMENT PROPERTIES (M=’ , 12, ’ ) ’ /’ ’, 

1 35(’=’)/15X, ’NUMBER OF GROUPS OF PROPERTIES (NSPE)=’,I5/ 

2 15X,’ NUMBER OF PROPERTIES PER GROUP (NPRE)=’,I5) 

IF (LPREG. EQ. 1 ) CALL ESPACE (NGPE*NPSE, 1 , TBL ( 1 ) , LPRE8) 

CALL ESPACE(NPRc,l,TBL(2),Ll) 

CAa EXPREL(VA (LPREG), VA (LI )) 

CALL VID£(L1,1,TBL(2)) 

RETURN 

END 
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SUBROUTINE EXPREL(V?R£6,V1) 



C TO EXECUTE BLOCK ’ PRa’ 

C READ ELEMENT PROPERTIES 

IMPLICIT REflL*8(A-H,0-Z) 

C0I«10N/PR£L/NGPE,NPRE 
COMMGN/ES/M, MR, «P, Ml, KDUMMY (9) 

DIMENSION VPR£B(*),V1(*) 

C 

IF(K,GE.O) WRITE (MP, 2000) 

2000 FORMAT!//’ CARDS OF ELEMENT PROPERTIES’/) 

C READ A 6R0UP 

I1=«IN0(7,NPR£) 

J=1 

10 READ(M1,1000) ISPS, (VI (I), 1=1, ID 

1000 F0RMAT(I5,7F10.0) 

IF(M.G£.0) WRITE (MP, 2010) IGPE, (VKI), 1=1, ID 
2010 FORMAT!’ ))>>)’, I5,7E12.5) 

IF(IGP£.LE.O) GO TO 40 

IF(IGPE.GT.NGPE) CALL ERREUR(41, IG?E,N6P£, 1) 

IF(NPRE.LE.7) GO TO 20 

C READ THE PROPERTIES 

READ(«1,1010) (Vl(I),i=8,NPRE) 

1010 FORMAT (5X,7F10.0) 

IF(M.G£.C) WRITE (MP, 2020) (VKI), I=8,NPRE) 
2020 FORMAT!’ )))))’,5X,7E12.5) 

20 DO 30 I=1,NPR£ 

VPREG(J)=Vl(I) 

30 J=J+1 

GO TO 10 
40 RETURN 
END 
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SUBROUT I >i£ BLELtM 

C TO CflLL BLOCK ’ELEK’ 

C TO READ ELEMENT DATA 

IMPLICIT REAL*8(A-H,0-2) 

CHARACTER*4 TBL 

COMMON/COOR/NDIM, NNT, NDLN, NNULL, FNULL (3) 

COMMON/PRND/NPRN 

COMMON/PREL/NGPE.NPRE 

COMMON/ELEM/NELT, NNEL, .NTPE, NGRE, M£, NIDENT, NP3 
COMMON/ASSE/NiSYM,NKG, MFILlRIE) 

COMMON/RESO/NEG, NFILLR (2) 

COWMON/ES/M, MR, MP, Ml , MS, MDUMMY (3) 

COMMON/LOC/LCORG, LDLNC, LNEG, LDIMP, LPSNG, LPREG, LLD, LLOCE, LCORE, LNE, 
1 LPRNE, LPREE, LDLE, LKE, LFE, LKGS, LKGD, LK3I , LFS, lRES, LDUMMY (5) 

COMMON VA(1) 

DIMENSION TBL(6),IN(6) 

C 

C+++ THIS IS COMMENTED OUT BECAUSE OF PHE MS FORTRAN COM-D- 
C+++ ILER BUG SHICH WILL NOT INITIALIZE $lARSE ARRAYS 

C+++ PrIIS ARRAY IS NOW INITIALIZED BY A CALL TO INITBL 'WHICH 

C+++ EXISTS SOLaY TO INITIALIZE TABLE NAMES. 

C 

C DATA TBL/’ LD ’ , ’ LOCE’ , ’ CORE’ , ’ NE ’ , ’ PRNE’ , ’ PHEE’ / 

C 

C HERE IS T'HE CALL TO GET AROUND THE CCMP-ILER BUG 

C 

CALL INITBL(TBL,’EL£M’) 

C 

C+++ ALL THIS WAS SIMPLY TO GET AROUND P€ MICROSOFT 
C+++ COMPILER BUG 

C 

C 

IF (Ml. EG. 0) M1=«R 
IF(M2.EQ.O) M2=ME 
READ(M1,1000)IN 
1000 FORMAT (615) 

IF(INd).GT.O) NaT=IN(l) 

IF(IN(2).GT.O) NNa=IN(2) 

IF(IN(3).GT.O) NTPE=IN(3) 

IF(IN(4).GT.O) N6RE=IN(A) 

IF(IN(5).NE.O) NSY«=1 
IF(IN(6).NE.O) NIDENT=1 

WRITE (MP, 2000) M, NaT, NNEL, NTPE, NGRE, NSYM, NIDENT 
2000 FORMAT!//’ INPUT OF ELEMENTS (M=’ , IS, ’ ) ’ /’ ’,20 (’=’)/ 

1 15X, ’MAX. NUMBER OF aEMENTS (NaT)=’,I5/ 

2 15X, ’MAX. NUMBER OF NODES PER aEMENT (NNEL)=’,I5/ 

3 15X, ’DEFAULT ELEMENT TYPE (NTPE) =’,15/ 

4 15X,’ NUMBER OF GROUPS OF ELEMENTS (NGRE) =’,15/ 
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5 I5X, ’ INT)EX FOR NGN SYMMETRIC PRQSLEM (NSYM)=' , 15/ 

6 15X, ’ INDEX FOR IDENTICAL ELEMENTS (NIDENT)=% 15/) 
IF(LLD.EQ.l) CALL ESPACE(NEQ+1,0,TBL(1),LLD) 

IF (ILOCE. EQ. 1 ) CALL ESPACE (NNEL*NDLN, 0, TBL (E) , L.OCE) 

IF(LCORE.EQ.l) CALL ESPACE(NN£L*NDIM, 1,TBL(3),LC0R£) 

IF(LNE.EQ.l) CALL ESPACE(NN£L,0,TBL(4),LN’E) 
IF(NPRN.GT.O.AND.LPRNE.EQ. 1) C(Ll ES?ACE(NNEL*N?RN, 1,TBL(5),.PRNE) 
IF(N?RE.GT.O.AND.LPRE£.EQ.l) CALL ESPACEINPRE, 1,TBL(6),LPRE£) 

CALL EXELEM (VA(LCORG) , VA (LDLNC) , VA (LPRNG) , VA (LPREG) , VA (LL2CE) , 

1 VA(LCORE) , VA(LNE) , VA (LPRNE) , VA (LPREE) , VA (L?€Q) , VA (LLD) ) 

WRITE (MP, 2010) NKG,NP6 

2010 F0RMAT(15X,’ LENGTH OF A TRIANGLE IN KG (NKG)=’,I10/ 

I I5X, ’NUMBER OF INTEGRATION POINTS (NPG)=’, IlO/) 

RETURN 

END 



SUBROUTI N£ EXELEM ( VCORG, KDLNC, VPRNG, VPRE3, KLOCE, VCCRE, KNE, VPRNE, 

I VPREE,KNEQ,KLD) 

============== 

C TO EXECUTE BLOCK ’aEM’ 

C READ ELEMENTS DATA 

IMPLICIT REAL*8(A-H,0-Z) 

COmON/COOR/NDIM, NNT, NNULL (2) , FNULU3) 

COMMON/PRND/NPRN 

CO»ION/PREL/NGPE,NPRE 

COMMON/ELEM/NELT, NNEL, NTPE, NGRE, ME, NIDENT, NPG 
COMMON/ASSE/NSYM, WKG, NKE, NDLE 

COWON/RGDT/IEL, ITPE, ITPEl, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDES, IPG 
1 , ICODE, IDLEO, INaO, IPGO 
COMMON/RESO/NEQ, NFILLR (2) 

COMMON/ES/M, MR, MP, M 1 , M2, MDUMMY ( 8 ) 

DIltNSION VCORG (*) , KDLNCI*) , VPRN3 (*) , VPREG (♦) , KLOCE (*) , VCQRE (») , 

I KNE (♦) , VPRNE (♦) , VPREE (*) , KNEQ (*) , KLD (*) 

DATA IIO/IO/, 115/15/ 

C 

C INITIALIZE 

OPEN (M2, FILE=’ $$ 002 . DAT’ , STATUS^’ NEW’ , FORM=’ UNFORMATTED’ ) 

NDLE=0 
iaT=o 
NPG=0 
REWIND M2 

IF(M.GT.O) WRITE (MP, 2000) 

2000 FORMAT (//’ aEMENTS CARDS’/) 

C R£flD AN atMENT CARD 

10 READ(M 1 , 1000) la, IGEN, INCR, ITPE, IGPE, IGRE, (KNE(IN), IN=1, 110) 

1000 FORMAT (1615) 

IF(M.6T.0) WRITE (MP, 2010) lEL, IGEN, INCR, ITPE, IGPE, IGRE, 

1 (KNE(IN),IN=1,I10) 

2010 FORMAT!’ ))>>)’, 1615) 
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IF(IEL) 80,60,20 

C NUMBER OF NODES AND ftDDITIONNfiL CARDS AS REQUIRED 

20 INEL=0 

11=1 
12=110 

30 D0A0IN=I1,I2 

IF(KNEdN).EQ.O) 80 TO 50 
INEL=INa+I 
40 CONTINUE 

11 = 12+1 
12=11+115 

READ(MI,1000) (KN£(IN),IN=I1,I2) 

IF(M.GT.O) WRITE(MP,2010) (KNE(IN), IN=I1, !2) 

GO TO 30 

C CHECKING 

50 IF(INa.GT.NNEL) CALL E.RR£UH(51, INEL,NNS., 1) 

IF(INCR.EQ.O) INCR=1 

IF(ITPE.EQ.O) ITPE=NTPE 

IF (IGPE. GT. N5PE) CALL ERREUR (53, I5?E, N3PE, 1 ) 

IF(IGPE.EQ.O) IGPE=1 

IF(IGRE.GT.NGRE) CALL ERREUR (54, I5RE,N6RE, i) 

C ELEMENT GENERATION 

IF(IGEN.EQ.O) IGEN=1 
DO 70 IE=1,IG£N 

IF(IEL.GT.NELT) CALL ERREUR (55, I£L,NELT, 1) 

C GENERATE KLOCE AND UPDATE KLD 

CALL LOCELD(KDLNC,KNE,KN£Q, KLOCE, KLD) 

C GENERATE ELEMENT COORDINATES AND PROPERTIES 

CALL XTRELM ( IGPE, VCCRG, VPRNG, VPSEG, KNE, VCGRE, VPR.ME, VPREE) 

C CHECK ELEMENT NODE NUMBERS AND 0.0. F. 

IPG0=0 

ICCDE=1 

CALL ELEMLB ( VCORE, VPRNE, VPREE, VOLE, VKE, VFE) 

IF(INEL.EQ. INELO. AND. IDLE. EQ.IDLEO) GO TO 55 
WRITE (MP, 2020) lEL, INEL, INELO, IDlE, IDLEO 
2020 FORMAT!’ « ELEMENT’ , 15, ’ INCONSISTENT’ /5X,’INEL=’, 14,’ INELC=’,I5 
1/ 5X,’IDL£=’,I5,’ IDLE0=’,I5) 

C UPDATE TOTAL NUMBER OF INTEGRATION POINTS 

55 NPG=NPG+IPGO 

C STORE ON ELEMENT FILE 

CALL URELEM (M2, KLOCE, VCORE, VPRNE, VPREE, KNE) 

IELT=IELT+1 

C PRINT ELEMENT CHARACTERISTICS 

CALL PRELEIKKLOCE, VCORE, VPRNE, VPREE, KNE) 

c NEXT Element to be generated or read 

DO 60 IN=1, INEL 
60 KNE(IN)=KNE(IN)+INCR 

IF(IDLE.GT.NDLE) NDLE=IDLE 
70 IEL=IEL+1 
GO TO 10 

C CHECK IF TOTAL NUMBER OF ELEMENT IS EXCEEDED 
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80 IFUai.NE.NELT) CALL ERR£L:R(57, lai.Nai, 1) 

C PRINT BAND HEIGHTS 

INfl=0 
I«0=0 
I1=NEQ+I 
DO 90 I=E, II 
J=KLD(I) 

IF(J.ST.IW5)IMfl=J 
90 IMO=ING+J 

C=IM0 
C=C/NEQ 

WRITER?, 2030) C,I>!fl 

2030 F0S«flT</15X, ’MEAN BAND H£IGHT=’,F8.1,’ !^XI!»!UX=' , 15) 
IF(K.GE.2) WRITER, 2040) (KLDU), M, ID 
2040 FORMAT!//’ TABLE OF BAND HEIGH'^S’/ COX, 2015)) 

C TRANSFORM KLD INTO ADDRESSES UF COLUMN TOP TERM 

IF (NSYM. £Q. 0) NK£= (NDLE*{NDLE+I ) ) /2 
IF (NSY«. EQ. 1 ) NKE=NDLE*NDLE 
KLD(D=I 
DO 100 ID=2,I1 

100 KLD(ID)=KLD(ID-1)+KLD(ID) 

NKG=KLD(I1)-1 

IF(M.G£.2) WRITE (NP, 2050) (KLD(ID), ID=1, ID 
2050 FORMAT!//’ TABLE OF ADDRESSES OF COLUMN TO? TERMS !LD)’/ 
1 !10X,20I6)) 

RETURN 

END 
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$LflRG£ 

$NOFLOflTCflLLS 

SUBROUTINE LOCEUHKDLNC, KNE, <N£C, KLCCE, KuD) 

C TO FORM THE ELEMENT LGCPLIZATiaN TfiBLE (LOCE) 

C AND UPDATE COLUMN HEISHTS '^OR A GIVEN ELEM.EN' 

REAL*8 FNULL 

COMMON/COOR/NDIM, NNT, NNuLL (2) , FNULL (3) 
C0«M0N/RGDT/NUL(4) , IDLE,NUL1 (3), INEL, IDUMMYIS) 
DIICNSION KDLNC(*) , KNE (♦) , KNEQ (♦) , KLOCE (♦) , KLD (*) 
DATA NDLMAX/32000/ 

C 

C GENERATE KLCCE FROM KNES 

IDLE=0 

LGCMIN=NDLMAX 
DO £0 IN=1, INEL 
INN=KNE(IN) 

IF(INN.GT.NNT) CALL ERREUR(56, INN,NNT, 1) 
IEG=KDLNC(INN) 

IEQ1=KDLNC(INN+1) 

10 IF(IEQ.6E.IEQ1) GO TO 20 
IEQ=IEQ+1 
!DLE=IDLE+1 
J=KNEQ(I£Q) 

KLOCE ( IDLE) =J 

IF ( J. LT. LOOM IN. AND. J. GT. 0) LOC>!I\'= J 
GO TO 10 
20 CONTINUE 

C UPDATE TABLE OF COLUMN HEIGHTS (KLD) 

DO 30 ID=1,IDLE 
J=KLCCE(ID) 

IF(J.LE.O) GO TO 30 
IH=J-LOCMIN 

IF(IH.GT.KLD(J+1))KLD(J+1)=IH 
30 CONTINUE 
RETURN 
END 
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SUBROUTINE XTRELXdSPE, VCCRS, V3RNG, VPRE3, X\£, CCRE, V^fiNE, 

C TO S£?£RAT£ ELEMENT CCORDINaiES WD PROPERTIES FROM 
C GLOBAL ARRAYS 

C (IGPE: GROUP NUMBER FOR ELEMENT PROPERTIES) 

C========================================: 

IMPLICIT REAL*8(A-H,0-Z) 

COMMON/CCOR/NDIM, NNULL ( 3) , FNULL (3) 

CO?«ON/PRND/NPRN 

COMMON/PREL/NSPE,NPRE 

C0KM0N7RGDT/NUL(5), ICE, IPRNE, IPREE, INEL, IDuMMY(S) 
DIMENSION VCORG (♦) , VPRNG (♦) , VPREG (♦) , XNE (♦) , VCGRE (♦) , 

1 VPRNE(*),VPREE(*) 

C 

C GENERATE ELEMENT COORDINATES 

IPRNE=0 

ICE=0 

DO 30 IN=1,INEL 
IC=(Kf€(IN)-l)*NDIM 
DO 10 I=1,NDIM 
ICE=ICE+1 
IC=IC+1 

10 VC0RE(ICE)=VCGR3(IC) 

C GENERATE ELEMENT NODAL PROPERTIES 

IF(NPRN.EQ.O) GO TO 30 
IC=(KNE(IN)-1)*NPRN 
DO 20 I=1,NPRN 
IPRNE=IPRNE+1 
IC=IC+1 

20 VPRNE(IPRNE)=V?RNG(IC) 

30 CONTINUE 

C GENERATE ELEMENT PROPERTIES 

IPREE=0 

IF(NPRE.EQ.O) GO TO 50 
IC=(IGP£-1)*NPRE 
DO AO I=1,NPS£ 

IPREE=IPREE+1 

IC=IC+1 

AO VPREE(IPR£E)=VPR£8(IC) 

50 RETURN 
END 



,V3RE£) 
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SUBROUTINE PREL£M(KLDCE, VCORE, V^RNE, KX'E) 

C PRINT DATA DEFINING AN ELEMENT 

IMPLICIT R£AL*8(A-H,0-Z) 

COMMON/PRND/NPRN 

COMMON/PREL/NB?E,N?RE 

COWON/RGDT/IEL, ITPE, ITPEi, IGRE, IDLE, ICE, IPRNE, IPREE, INEL,NL'LL(5) 
COKMON/ES/M, MR, MP, MDUMMY (10) 

DIMENSION XLCCE(*) , VCORE(t) , VPRNE(») , V?REE(») , KNE(*) 

IF(M.GE.O) WRITE (MP, 2000) lEL, ITPE, INEL, IDLE, IPRNE, IPREE, I3RE 
2000 FORMATdOX, ’ELEMENT:’, 15,’ TYPE;’, 12,’ N.?.;’,I2,’ D.O.F.:’, 

1 13,’ N. PROP; ’,13,’ EL. PROP;’, 13,’ GROUP;’, 13) 

IF(«.GE.O) WRITE (MP, 2010) (KNE(I), 1=1, INEL) 

FORMAT! 15X, ’ CONNECTIVITY (NE) ’ , 2015/ (32X, 2015) ) 

IF(M.LT.l) GO TO 10 
WRITE (MP, 2020) (KLXE(I), 1=1, IDLE) 

FORMAT ( 15X, ’ LOCALIZATN (LOCE) ’ , 2015/ (32X, 2015) ) 

WRITE (MP, 2030) (VCORE(I), 1=1, ICE) 

FORMAT! 15X, ’ COORDINATES (CORE) ’ , 8E12. 5/ (32X,8E12. 5) ) 

IF(NPRN.GT.O) WRITE («P,20A0) (VPRNE(I), I=1,I?RNE) 

FORMAT ( 15X, ’ NOD. PROP. (PRNE) ’ , 8El2. 5/ (32X, 8E12. 5) ) 

IF ( IPREE. 6T.0) WRITE (MP, 2050) (VPREE(I), 1=1, IPREE) 

FORMAT! 15X,’ELEM. PROP. (PREE)’ ,8E12.5/(32X,8E12.5) ) 

RETURN 
END 



SUBROUTINE WRELEM (ME, KLOCE, VCORE, VPRNE, VPREE, X.NE) 



C WRITE ELEMENT PROPERTIES ON FILE ME 
IMPLICIT REAL*8(A-r!,D-Z) 

COMMQN/RGDT/ia, ITPE, ITPEI, IGRE, IDLE, ICE, IPRNE, IPREE, INEL,NULL{6) 
DIMENSION KLOCE!*), VCORE!*), VPRNE(»),VPREE(*),KNE(») 

C 

IPRNE1=IPRNE 
IF(IPRNEl.EQ.O) IPRNE1=1 
IPREE1=IPREE 
IF(IPREE1.E(2.0) IPREE1=1 

WRITE (ME) lEL, ITPE, IGRE, IDLE, ICE, IPRNEl, IPREEl, INa, 

1 (KLOCE(I) , 1=1, IDLE) , (VCORE(I), 1=1, ICE) , 

2 (VPRNE(I), 1=1, IPRNEl), (VPREE (I), 1=1, IPREEl), 

3 (KNE(I), 1=1, INEL) 

RETURN 

END 



2010 

2020 

2030 

2040 

2050 

10 
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SUBRO/TINE RD£LEM(ME, KLOCE, VCOSE, VPRWS, VCR££, K\£) 



C READ £L£?!£NT PROPERTIES FROM FILE >!E 
IMPLICIT REAL*fl(A-H,0-Z) 

C0W10N/R6DT/IEL, ITPE, ITPEI, IBRE, IDLE, ICE, IPRNE, IPREE, INEL,NULL(£) 
DIMENSION KLOCE(*) , VCORE (♦) , VPRNE (*) , VPREE (*) , KN’E («) 

READ(ME) lEL, ITPE, IBRE, IDLE, ICE, IPRNE, IPREE, INEL, 

1 (KLOCE(I), 1=1, IDLE), (VCORE(I), 1=1, ICE), 

2 (VPRNE ( I ) , 1=1, IPRNEi , (VPREE ( I ) , 1=1, IPREE) , 

3 (KNE(I),I=1,INEL) 

RETURN' 

END 



SUBROUTINE BLSOLC 

C TO CALL BLOCK 'SQLC’ 

C TO READ CONCENTRATED LOADS 

IMPLICIT REAL*8(A-H,0-Z) 

CHARACTER*4 TBL 
COKMON/RESO/NEQ, NFILLR (2) 

CO>HON/ES/M, MR, MP, Ml , MDUMMY (9) 

COMMON/LOC/LCORB, LDLNC, LNEQ, LXX ( 15) , LFB, LDUMKY (6) 

COMMON VA(1) 

DATA TBL/’ FG ’/ 

C 

IF(«l.EQ.O) M1=MR 
URITE(MP,2000) M 

2000 FORMAT!//’ INPUT OF CONCENTRADED LOADS (M=’,I2,’)’/’ ’, 
1 39(’=’)) 

IF(LFB.EQ.i) CALL ESPACE(NEQ, 1,TBL,LFB) 

CALL EXSOLC(VA(LFB),VA(LDL\C),VA(LNEQ)) 

RETURN 

END 
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SUBROUTINE EXSCLC (V?G, KDLNC, KSEC) 

C TO EXECUTE BLOCK ’SOLC’ 

C READ CONCENTRATED LOADS 

IMPLICIT REALMS (A-K,0-Z) 

COMMON/COOR/NDIM, NNT, NDLN', N^^LL, FNLll (3) 
COKMON/RESO/NEQ,NFILLR(E) 

COMMON/ES/M, MR,MP, Ml, MDUMMY(9) 

CO««ON/TRVL/KV( 16) , V< 14) , RDUMMY (459) , NULL 
DIMENSION VFG(*),KDLNC(*),KN£0(*) 

DATA L16/16/ 

C 

C READ DATA 

IF (M.GE.O) WRITE (MP, 2000) 

2000 FORMAT!//’ CARDS OF NODAL LOADS’//) 
I0=MIN0(7,NDLN) 

10 READ<M1,1000) IG, (V!I), 1=1, 10) 

1000 FORMAT ( 15, 7F10.0) 

IF(NDLN.GT.7) READ(M1, 1005) (V(I), 1=8, NDLN) 

1005 FORMAT(5X,7F10.0) 

IF(M.GE.0)WRITE(MP,2010)I6, (V(I), 1=1, NDLN) 

2010 FORMAT!’ )))))’, 15, 7E12. 5/!’ )))))’,5X,7E12.5)) 
IF!I6.L£.0) GO TO 60 
20 READ!M1, 1010) !KV!I), 1=1, L16) 

1010 F0RMAT!16I5) 

IF!)1.8E.0)WRITE!MP,2020)!KV!I),I=l,Li6) 

2020 FORMAT!’ )))))’, 1615) 

C DECODE NODAL DATA 

DO 50 IN=1,L16 
I1=KV!IN) 

IF!I1.6T.NNT) CALL £RREUR!61, Il,>yaT, 1) 

IF!I1) 10, 10,30 
30 ID1=KDLNC!I1)+1 

ID2=KDLNC!Il+l) 

J=0 

DO 50 ID=ID1,ID2 
J=J+1 

IEQ=KNEQ!ID) 

IF!IEQ)50,50,40 
40 VFG!IEQ)=VFG!IE3)+V!J) 

50 CONTINUE 

GO TO 20 
C OUTPUT 

60 IF!M.6E. 1) WRITE !«P, 2030) (VFG!I), I=1,NE0) 

2030 FORMAT!//’ TOTAL LOAD VECTOR’ /!10X, 10E12. 5)) 
RETURN 
END 



178 



SUBROUTINE BLSCLR 



C TO CALL BLOCK ’SCLR’ 

C TO PSSEMK.B DISTRIBUTED LOADS (ELEMENT FUNCTION 7) 

IMPLICIT REAL*3(A-H,0-Z) 

CHARACTER*^ TBL 

CO:’?iON/CQCR/NDIM, NNT, NDLN, NDLT, .-NULL (3) 

CQMMQN/ELEM/NULL (4) , ME, .MNULL (£') 

CC^ION/ASSE/NS'r;’!, NKG, NKE, NDLE 
C0MM0N/RE50/NEQ, NRES, MRES 
COMMON/ES7M, MR, MI , M2, MDUMMY (8) 

COMMON/LOC/LCORG, LDLNC, LNEQ, LDIMP, LPRNG, LPREG, LLD, LLOCE, LCORE, LN’E, 
1 LPRNE, uPRlE, LDLE, LKE, LFE, LKGS, LKGD, LKGI, LFG, LRES, LDLG, LDUM«Y(4) 
COMMON VA(i) 

DIMENSION TBL (3) 

C 

C+++ THIS IS COMMENTED OUT BECAUSE CF THE MS FORTRAN CDMP- 
C+++ ILER BUG WHICH WILL NOT INITIALIZE $LARGE ARRAYS 

C+^^■ THIS AR.RAY IS NOW INITIALIZED BY A CALL TO INITBL WHICH 

C+++ EXISTS 5-OLELY TO INITIALIZE TABLE NAMES. 

C 

C DATA TBi./’F6 ’,’K£ ’,’F£ ’,’DLE ’,’KSS ’,’.KSD ’,’KGI ’, 

C 1 ’.RES ’/ 

C 

C HERE IS THE CALL TO GET AROUND THE COMPILER BUG 

C 

CALL I,NITBL(TBL,’SOLR’) 

C 

C+++ ALL THIS WAS. SIMPLY TO GET AROUND THE MICROSOFT 
C+++ COMPILER BUG 

C 

C 

IF(«l.EQ.O) M1=M.R 
IF (M2. £0.0) M2=ME 
WRITE (MP, 2000) M 

2000 FORMAT!//’ ASSEMBLING OF DISTRIBUTED LOADS (M=’,I2,’)’/ 

1 1X,40(’=’)/) 

I.- (LFG. £0. 1 ) CALL ESPACE (NEQ, 1 , TBL ( 1 ) , U^G) 

IF(LKE.EQ.l) CALL ESPACE(NKE, 1,TBL(2),LKE) 

IF (LFE. £Q. 1) CALL ESPACE(.NDLE, 1, TBL(3) , LFE) 

IF(LDLE.EO.l) CALL ESPACE (NDLE, 1, TBL (4), LDLE) 

IF(LKGS.EQ.l) CALL ESPACE (NKG, 1, TBL (5), LKGS) 

IF(LKGD.EQ.l) CALL ESPACE(N£(5, i,TBL(6),L.KSD) 
IF(NSYM.£Q.l.AND.LK6I.EQ.l) CALL ESPACE (NKG, 1, TBL (7), LKGI) 
IF(LRES.EO.i) CALL ESPACE (NDLT, 1, TBL (8), LRES) 

CALL EXSOLR ( VA(LLD) , VA(LDI.MP) , VA (LLOCE) , VA (LCORE) , VA (LPRNE) , 

1 VA (LPREE) , VA (LNE) , VA (LKE) , VA (LFE) , VA (LKGS) , VA (LKGD) , 

2 VA (LKGI ) , ^ (LFG) , VA (LCQRG) , VA (LDLNC) , VA (LNEQ) , 

3 VA (LRES), VA (LDLE)) 

RETURN 

END 
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SUBROUTINE EXSCLS CCD, VDIMP, KlOCE, VCCRE. VPRNE, VPREE, K'\'E, VKE, VFE, 
1 VKGS, VK3D, V'KGI, VFG, VCORG, KDL>;C, KNEQ, VRE3, VDLE) 



t=== 



TO EXECUTE BLOCK ’SOUR' 

^SSEl'IBLE DISTRIBUTED LOADS (ELEMENT FUNCTION 7) 



IMPLICIT REflL*3(A-;-:,0-Z) 

CDMM0N/PS9E/NSYM, NKG, NKE, NDLE 
CCMMGN/RESC/NEQ, NRES, Nf ILLR 
COMMONVES/M, MR, MP, Ml, M2, MDUMMY (B) 

DIME.'ISIC.V XLD(*) , VDI«P(*) , KLOCE (♦) , VCGRE (*) , VPRNE (*) , vPREE(*) , 

1 KNE(») , VK£(*) , VFE(*) , VKGS(*) , VHGD (*) , VKGI (*) , VFG(*) , VCORG (*) , 

2 KDLNC(*),KO(*),VR£B(*),VDLE(*) 

n_ 

^ _ _ _ 

0 ASSEMBLE FG 

CALL ASFG (KLD, VDIMP, KLCCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, VKG5, 

1 VKGD, VKGI, VFG, VDLE, VRES) 

C OUTPUT 

IF(.M.SE.l) WRITE (MP, 2000) (VFG(I), I=I,NEQ) 

2C00 FORMAT (/' GLOBAL LORD VECTOR (FG)’/(1X, 10E12.5)) 

RETURN 



END 
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SL’S^Qu'IN-S fio-8 (KlD, VDI.^,?, KuOCE, VCORE, VPR.\E, V^REE, KNE, VKE, V?E, 
. VKBS, VKSD, VKGI , VFS, VDLE, VRES) 



fiSS£i^K.ING DISTRIBUTED LOADS IN FG 



IMPLICIT REAL*8(A-H,0-Z) 

CDMMON/ELEM/NELT, NNEL, NTPE, NG3S, ME, NIDENT, MNULL 
COMMON/ ASSE/NSYK, MFILLR 1 3) 

ODMMGN/RESO/NEO, NFILLRI2) 

COMMGN/HGDT/IEl, ITPE, ITPEl, ISRE, IDLE, ICE, IPRNE, IPREE, INEL, IDEG, I^G 
1 ,!COD,NULL(3) 

COMMON/ES/iM, MR, MP, M 1 , H2, MDUMMY (3) 

DIMENSION KLD (*) , VDIMP (*) , KLOCE (*) , VCORE (♦) , VPRNE ( *) , VPREE ( *) , 

1 KNE (♦) , VKE (t) , VFE(*) , VKSS (*) , VKSD («) , VKGI (*) , VFG(*) , VDLE(*) , 

£ VR£S(») 



C REWIND E.EKENT FILE X2 

REWIND M2 

C LOOP OVER THE ELEMENTS 

DO 20 I£=1,NE'^T 

C READ AN ELEMENT FROM FILE M2 

CALL RDELEM IM2, KLOCE, VCCRE, VPRNE, VPREE, KNE) 

C EVALUATE INTERPOLATION FUNCTIONS IF REQUIRED 

IF I ITPE. EQ. ITPEl) GO TO 10 
IC0D=2 

CALL ELEMLB I VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

C EVALUATE ELEMENT VECTOR 

10 IC0D=7 

CALL ELEMLB I VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

C PRINT ELEMENT VECTOR VFE , 

IFIM.GE.2) WRITE IMP, 2000) la, (VFE 1 1), 1=1, IDLE) 

2000 FORMAT I/’ VECTOR IFE) , ELEMENT:’, I5/II0X, 10E12.5)) 

C ASSEMBLE 

CALL ASSELIOjl, IDLE, NSYM, KLOCE, KLD, VKE, VFE, VKGS,VKGD, VKGI, VFG) 
£0 ITPE1=ITPE 

RETURN 
END 



181 



Subroutine bllin;^ 



C--— — ~~~~~ 
C TO CfilL BLOCK ’LIN.*’ 

C fiSSE-XBLE fiND SOLVE fi LINEAR PROBLEM IN CORE 

IMPLICIT REflL*6(A-H,Q-2) 

CHARfiCTERM TBL 

CQMIMON'/CCCR/NDIM, NNT, NDLN, NDLT, FNULL (3) 

COMMGN/ELEK/NULL (A) , XE, MNULL (£) 

CGMMON/ASSE/NSYM, NKG, NKE, NDLE 
COXi’rONVRESO/NEG, NRES, MRES 
CCMMGN/ES/M, MR, MP, Ml, M2, M3, MDUMMY(7) 

CCM*ON/LOC/uCQRG, LDLNC, LNEQ, LDIKP, LPRNG, LPREG, LLD, LLOCE, LCORE, LNE, 
1 LPRVE, LPREE, LDLE, LKE, L-E, LKGS, LKGD, LKGI, LFG, LRES, LDLG, LDUMMY ( A) 
CCMMON VAC) 

DIi>ENSICN TBL(8) 

U 

:+++ THIS IS COMMENTED OUT BECAUSE OF TME MS FORTRAN COMP- 
C+++ iLER BUG WHICH WILL NOT INITIALIZE $LARG£ ARRAYS 

C+++ THIS ARRAY IS NOW INITIALIZED BY A CALL TO INITBL WHICH 

C+++ EXISTS SOLELY TO INITIALIZE TABLE NAMES. 

C 

C DATA TBL/’KGS ’,’KGD ’,’KGI ’,’FG ’,’KE ’,’FE ’,’RES ’,’DLE ’/ 

C 

C HERE IS THE CAi_L TO SET AROUND THE COMPILER BUG 

C 

CALL INITBL (TBL, ’LINM’) 

C 

C+++ ALL THIS WAS SIMPLY TO BET AROUND Tr€ MICROSOFT 
C+++ . COMPILER BUG, 

C 

Q 

IF(Mi.EQ.O) M1=«R 
IF(M2.£Q.O) M2=M£ 

IF(K3.EQ.O) M3=«REB 
READ(M1,1000) IN 
1000 FORMAT (115) 

IF(IN.NE.O) NRES=1 
WRITE (MP, 2000) M,NRE5 

2000 FORMAT (//’ ASSEMBLING AND LINEAR SOLUTION (M=’ , 12, ’ )’ /’ ’,30(’=’)/ 
1 15X, ’ INDEX FOR RESIDUAL COMPUTATION (NRES)=’, 15) 

IF(LKGS.EQ.l) CALL ESPACE(NKG, 1, TBL (1), LKGS) 

IF(LKGD.EQ.l) CALL ESPACE(NEQ, 1,TBL(2),LKGD) 
IF(MSYM.£Q.l.AND.LKBI.EQ.l) CALL ESPACE(NKS, 1,TBL(3),LKGI) 
IF(U^G.EQ.i) CALL ESPACE(NEQ, 1,T3L(4),LFG) 

IF(LKE.EQ.I) CALL ES^ACEINKE, 1,TBL(5),LKE) 

IF (LFE. EQ. 1 ) CALL ESPACE (NDLE, 1, TBL (6) , LrE) 

IF (LRES. EQ. 1 ) CALL ESPACE (NDLT, 1, TBL (7) , LRES) 

IF (LDLE. EG. 1) CALL ESPACE (NDLE, 1, TBL (8), LDLE) 

CALL EXlINM (VA (lLD) , VA(LDIMP) , VA (LLOCE) , VA (LCORE) , VA (LPRNE) , 
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1 vfi (l3S£E) , miHE ) , Vfl (LHE) , Vfl (LFE) , Vfl (LKG3) , VP (LK6D) , 

2 VA (L<SI ) , VP (L?G) , VP (LC0R3) , VP (LDLNC) , VP (LNEQ) , 

3 VP(LRE3),VP(LDL£)) 

END 



r- 

W“* 

C 

c 

c= 



SLBRObTINE EXLINM (KID, VDIi*P, XLOCE, VCOSE, VPRNE, VPREE, KNE, VKE, VFE, 
1 VKGS, VKGD, VKGI , VFG, VCORG, KDLNC, KNE2, VRES, VOLE) 



TQ EXECUTE BLOCK ’LINM’ 

PSSE:’^BL£ PND SOLVE R LINEAR PROBLEM IN CORE 



IMPLICIT REkL*3(R-H,C-Z) 

CCMMQNVPSSE/NSYK, NKG, N'KE, NDLE 
CG®CN/RESO/NEQ, NSES, MSES 
CCSMONVES/M, t*IR, MP, Mi, .M2, K3, .MDUMMY (7) 

DI ME>SION KLD ( ♦) , VDI«P(*) , KLOCE (♦) , VCORE (♦) , VPRNE (♦) , VPR^EE ( *) , 

1 r;NE(*),VKE(*},VFE(*),VK6S(*),VKGD(*),VKGI(*),VFG(*),VC0RG(*), 

2 .KDLNC (*) , KNEQ (*) , VRES (*) , VDLE (♦) 



0PEX(M3,FILE=’$$OO3.DPT’ 
RE’^IND M3 



, STPTuS=’ NEW’ , FORM=’ UNFORMPTTED’ ) 



p 

w 






ASSEMBLE KG 



C SAVE UNMODIFIED VECTOR FG (BY B.C.) ON FILE .M3 

WRITE(M3) (VFG<I),I=I,NEQ) 

IF(M.GE.2) WRITE (MP, 2000) (VFG(I),I=1,NEQ) 

2000 FORMAT!/’ GLOBAL LOAD VECTOR NON MODIFIED BY B.C. (FG)’ 
i/(lX,10E12.5)) 

C ASSEMBLE KG, .MODIFY FG FOR THE B.C. AND SAVE THEM 

CALL ASKG(KLD, VDIMP, KLOCE, VCCRE, VPRNE, VPREE, KNE, VKE, VFE, VKGS, 
1 VKGD, VKGI, VFG, VDLE, VRES) 

WRITE (M3) (VFG(I),I=1,NEQ) 

WRITE(M3) (VKG3(I),:=!,NKG), (VKSD(I),I=1,.N£Q) 

IF(NSYM.EQ.l) WRITE(M3) (V.KGI (I), I=1,NKG) 

C PRINT KG AND FG 

iF(M.LL2) SO TO 20 
WRiTE(MP,2005) (VKGS(I), I=!,NKG) 

2005 FOR.MAT(/’ GLOBAL MATRIX (KG)’/’ UPPER TRIANGLE’/ 

1 (1X,10E12.5)) 

WRITE (MP, 2010) (VKGD(I), 1=1, NED) 

2010 FORMAT!’ DIAGONAL’/! IX, 1C€12. 5)) 

IF(NSYM.EQ.l) WRITE (MP, 2020) (VKGI (I ), 1=1, NKG) 

2020 FORMAT!’ LOWER TRIANGLE’ /(IX, 10E12. 5)) 

WRITE (MP, 2030) (VFG(I), I=1,NEQ) 

2030 FORMAT!/’ GLOBAL LOAD VECTOR MODIFIED BY THE B.C. (FG)’ 

1 /(lX,iOE12.5)) 

C 

C SOLVE 
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iO COLL S0L(VKGS,VK6D,Vi<6I,VFG,!<LD,\Ei3,MP, 1, 1,NSYM,ENERG) 

:F(^iSYM.NE.i) WRITE (MP, 2035) ENEHS 
2035 .-QR?}flT(15X,’ ENERGY (ENERG)=ME12.5) 

IF(M.LT.2) GO TO 30 

WRITE (MP,20A0) (VKBSU), I=1,NKG) 

20A0 FORNflT(/> TRIflNGULflRIZED NflTRIX (KG)’/’ UPPER TRIfiNGLE’/ 

1 (1X,10E12.5)) 

WRIT£(MP,2010) (VKGD(I),I=1,NEQ) 

IF(NSYM.EQ.l) WRITE (MP, 2020) (VKGI (I), 1=1, NKB) 

C PIVOTS OF KG AND DETER.«INflNT 

30 CALL PRPVTS(VKGD) 

C EVALUATE AND PRINT RESIDUAL VECTOR K.U - F 

IF(NRES.EQ. ■) CALL PRRESD(VKGS, VKGD, VKGI, VFG,KLD,VRES) 

C PRINT THE SOLUTION 

WRITE (KP, 2050) 

2050 FORIAK//’ SOLUTION’//) 

CALL PRSQL (KDLNC, VCORG, VOIMP, KNEQ, VFG) 

n 

L 

C EVALUATE AND PRINT GRADIENTS (STRESSES) 

C 

CALL ASGRAD (KID, VDINP, KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, Vf^E, VKG5, 
1 VKGD, VKGI, VFG, VDLE,VRES) 

C 

C EVALUATE AND PRINT EQUILIBRIUM RESIDUAL VECTOR 

C 

C READ VECTOR FG AND CHANGE SIGN 

REWIND M3 

-EAD(M3) (VRES(I),I=1,NEQ) 

DO AO 1=1, NEQ 
AO VRES(I)=-VRES(I) 

C ASSEMBLE THE RESIDUALS 

CALL ASRESDd, 1, KLD, VDIMP, KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, 

1 VKGS, VKGD, VKGI, VFG, VDLt, VRES, VRES (NEQ+1 ) ) 

C PRINT THE RESIDUALS 

WRITE (MP, 2060) 

2060 FORMAT!//’ EQUILIBRIUM RESIDUALS AND REACTIONS’//) 

CALL PRSQL (KDLNC, VCORG, VRES (NEQ+1 ) , KNEQ, VRES) 

RETURN 

END 
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SUBR&JTINE ft3X5 (KLD, VDIXP, KLOCE, VCOhE, VPR^iE, VPREE, -{Hi, VKE, VEE, 
: VKG3,VK3D,VKGI,VFS,V'DLE,vRES) 



L= 

C 



TO ASSEirBLE GLCBfiL ?!ATRIX KG (ELEMENT FUNCTION 3) 
TAKING INTO ACCOUNT CF NON ZERO PRESCRIBED D.O.F. 






IXPlICIT REAL*8(A-h,0-Z) 

CQ>!«QN/C0N2/Na.T, NCIZ, NCLNZ 
COyiNCN/ELEM/NELT, NNEL, NT?E, ^JGRE, ME, NIDENT, MNULL 
CCf«GN/ASSE/NSY>!,KFILLR(3) . 

COimVREBQ/NEa, NFILLR (2) 

'CO>::^CN/RSDT/IEl, ITPE, ITPEl, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDE3, IPG 
1 ,ICCD,NULL(3) 

C0M;<GN7E3/M, SR, KP, Ml, M2, MDUMMY (8) 

DIMENSION KLD(t) , VDIMP(*) , KLOCE (*) ,VCORE(*) ,VPRNE(*) , VPREE(*) , 

1 XNE (*) , VKE (*) , VFE (♦) , VKGS (♦) , VKGD (*) , VKGI (♦) , VFG («) , VDLE (*) ! 

2 VRES(*),KEB(i) 



C- 

c- 



REWIND ELEMENT FILE (M2) 
REWIND M2 



C LOOP OVER THE ELEMENTS 

DO Iw-l,NELt 

C READ AN ELEMENT ON FILE M2 

CALl RDElEM (M2, KLOCE, VCORE, VPRNE, VPREE, KNE) 

C SKIP COMPUTATION IF IDENTICAL ELEMENTS ENCOUNTERED 

IF(NIDENT.Ea.l.ftND.IE.GT.l) GO TO 20 

C EVALUATE INTERPOLATION FUNCTIONS IF REQUIRED 

IF ( ITPE. EQ. ITPEl) GO TO 10 
IC0D=2 

CALL ELEMLB CVCQRE, VPRNE, VPREE, VDLE, VKE, VFE) 

C FORM ELEMENT MATRIX 

10 IC0D=3 



CALL ELEMLB (VEORE, VPRNE, VPREE, VOLE, VKE, VFE) 

C PRINT ELEMENT MATRIX 

IF (M. IT. 2) SO TO 20 



IF (NSYM. EiJ. 0) IKE=IDLE* ( IDLE+1 ) /£ 

IF (NSYM. EQ. 1 ) IKE=IDLE*IDLE 
WRITE (MP, 2000) lEL, (VKE(I), 1=1, IKE) 

2(j00 FORMAK/’ MATRIX (K£) , EuEMENT:’ , I5/(10X, 10E12.5) ) 

C MODIFY FG FOR NON ZERO PRESCRIBED D.O.F. 

20 IF (NCLNZ. NE.O) CALL MODFG ( I DLE, NSYM, KLOCE, VD IMP, VKE, VFG) 

C ASSEMBLE 

CALL ASSEL (1,0, IDLE, NSYM, KLOCE, KLD, VKE, VFE, VKGS, VKGD, VKGI , VFG) 
30 ITPE1=ITPE 
RETURN 
END 
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o cn o r-j 



Subroutine ass, rad c<ld, vol'-.p, k^oce, vcore, v?=ne, vpree, kne, vke, vfe, 

1 VH.S3, VKGD, VKGI , VF3, VOLE, VRES) 

C TO EVALUATE AND PRINT GRADIENTS (STRESSES) AT ELEMENT G. P. 
(ELEMENT FUNCTION 3) 



IMPLICIT REALMS (R-H,G-Z) 

CGMMON/ELEM/NELT, NNEL, NIPS, N8RE, ME, NIDENT, MNULL 
COMMON7ASSE/NSYM, MFILLR (3) 

C0MM:0N/RES0/N'E(2, MFILLR (2) 



CCMM0\7R6DT/IEL, ITPE, ITPE!, IGSE, IDLE, ICE, iPRNE, IPREE, I.NEL, IDEG, IPG 
i ,ICCD,NULL(3) 

CCMM0N/E3/M, MR, MP, Ml, M2, MDuMMY(6) 



DIMENSION KLD (♦) , VDIM? (*) , KLOCE (♦) , VCORE (*) , VPRNE (*) , VPREE (♦) , 
1 KNE (*) , VXE (*) , VFE (♦) , VKGS (♦) , VKGD (#) , VKGI (*) , VFG(») , VDLE (♦) , 



2 VRES(*) 



REMIND ELEMENTS FILE (M2) 

REWIND M2 

C LOOP OVER THE ELEMENTS 

DO 20 IE=1,N£LT 

C READ THE ELEMENT 

CALL RDELEM (M2, KLOCE, VCORE, VPRNE, VPREE, KNE) 

C EVALUATE INTERPOLATION FUNCTION IF REQUIRED 

IF(ITPE.EQ.ITPEl) GO TO 10 
IC0D=2 

CALi. ELLMLB(VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

C FIND ELEMENT D.O.F. 

10 CALL DLELM (KLOCE, VFG.VDIXP, VDLE) 

C COMPUTE AND PRINT STRESSES OR GRADIENTS 

iUuD~8 

CALL ELEMLB (CORE, VPRNE, VPREE, VDLE, VKE, VFE) 

20 ITPE1=IT?E 

RETURN 
END 
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■3ct:^0UTI^£ flSRESD ( I SE3D, I R£PC, KLD, VOIMP, KLOCE, VCORE, VPRNE, VPREE. 
K.\E, VKE, VF£, VKGS, VKGD, VKGI, VF5, VDLE. VRES. VREAC) 

C TO ASSEMBLE INTERNAL RESIDUALS IN VRES (IF IRESD .EQ.l) 

C AND EXTERNAL .REACTIONS IN V.REAC (IF IREAC.EQ.l) 







u 



C 



10 

c- 



r, 

w 



2000 



20 

C- 

L 

r 

u 



30 

40 



IMPLICIT REAL»8(A-H,C-Z) 



CC.ro/ELEM/NELT, NNEL, NTPE, NGRE, ME, NIDENT, MNULL 
CCWCN/ASSE/'iSYN, MFILL.R (3) 



CGMO/.RESC/NEQ, NFILLR (2) 

XMMGN/RGDT/IEL, ITPE, ITPEl, IGRE, IDLE, ICE, IPRNE, IPREE, I.NEL, IDEB, IDS 
1 , 1 COD, NULL (3) 



CO'^MGNVES/M, .MR, MP, Ml , .M2, MDUNMY (8) 

DIMENSION KLD(*),VDI1*:P(*),KLOCE(*),VCORE(*),VPRNE(»),VPREE(*). 

1 K.NE (*), VKE (*), VFE (*) , VKGS ( ») , VKGD (*) , VKGI (*) , VFB (*) , VDLE (♦) , 

2 VRES (*), VREAC (*) 



— REWIND ELEMENT FILE (M2) 

REWIND M2 

— LOOP OVER THE ELEMENTS 
DO SO IE=1,NELT 

— REP.D A.N B.EMENT ON FILE M2 

CALL .RDELEM (M2, KLOCE, VCORE, VPRNE, VPREE, KNE) 

— EVALUATE INTERPOLATION FUNCTION IF REQUIRED 
IF(ITPE.£Q. ITPEl) GO TO 10 

IC03=2 

CALL ELEMLB (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

— FIND ELEMENT D.O.F. 

CALL DLELM (KLOCE, VFG, VDIMP, VDLE) 

— EVALUATE E.EMENT REACTIONS 
IC0D=6 

CALL ELEMLB (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

— PRINT ELEMENT REACTIONS 

IF(M.G£.2) WRITE(MP,2000) lEL, (VFE(I), 1=1, IDLE) 

FOR.MAT(/’ REACTIONS (FE) , ELEMENT;’, 15/ (lOX, 10E12. 5) ) 
IP(IR£SD.NE.l) GO TO 20 

— ASSEMBLE INTERNAL RESIDUALS 

CALL ASSEL (0, 1 , IDLE, NSYM, KLOCE, KLD, VKE, VFE, VK6S, VKGD, VKGI , VRES) 
IF(IREAC.NE.l) SO TO 60 

— ASSEMBLE EXTERNAL REACTIONS 

MODIFY TERMS IN KLOCE SUCH THAT PRESCRIBED D.O.F. ARE THE ONLY 
ASSEMBLED ONES 
DO 50 ID=1, IDLE 
IF (KLOCE (ID)) 30,50,40 
KLOCE(ID)=-KLOCE(ID) 

GO TO 50 
KLOCE ( ID) =0 



50 



60 



CONTINUE 



CALL ASSEL (0, 1 , IDLE, NSYM, .KLGCE, KLD, VKE, VFE, VKGS, VKGD, VKGI , VREAC) 

ITPE1=IT?E 

RETURN 

END 
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Subroutine ftsssidKG, ifg, idl£,nsym,kloce,kli),vk£,v.-£,vkgs. 

i VKSD,VkGI,VFG) 

TO flSSE>!BLE fiN ELEMENT MATRIX AND/OR VECTOR 
(MATRIX SYMMETRICAL OR NOT) 

IF I/.G.EQ.1 ASSEMBLE ELEMENT MATRIX HE 
IF IFG.EQ.1 ASSEMBLE ELEMENT VECTOR FE 
ELEMENT NUMBER OF D.O.F. 

ASYMMETRIC PROBLEM, I=UNSYMMETRIC PROBLEM 

Element localization vector 
CUMULATIVE COLUMN HEIGHTS OF KG 
ELEMENT MATRIX K£ (-ULL OR UPPER TRIANGlE BY 
DESCENDING COLUMN'S) 

ELEMENT VECTOR FE 

C V'KGS,VKGD,VKG: global matrix (SK'YLINES) 

C (SYMMETRIC OR NOT) 

C VFG GLOBAL LOAD VECTOR 

IMOLiCIT REAL*8(A-H,0-Z) 

DIMENSION KLOCE(») , KLD(*) , VKE(») , VFE(») , VKGS(*) , VKGD(*) , 

1 'VKGI(*),VFB(*) 



C 

C 

c 



INPUT 

IKG 

IFG 

IDLE 

NSYM 

KLOCE 

KLD 

VKE 



VFE 

OUTPUT 



C 

C ASSEMBLE ELEMENT MATRIX 

C 

IFdKG.NE.!) GO TO 100 
IEQO=IDL£ 

IEQ1=1 

C FOR EACH COLUMN OF KE 

DO 30 JD=1, IDLE 
IF(NSYM.N€.l) !EQO=JD 
JL=KLOC£(JD) 
l^Ul) 90,90,10 
10 IO=KLD(JL+i) 

IEQ=IEQ1 

IQ=1 

C FOR EACH ROW OF KE 

DO 80 ID=1, IDLE 
IL^KLOCEdD) 

IF(NSYM.EQ.l) GO TO 30 
IF(ID-JD) 30,20,20 
20 IQ=ID 

30 IF (ID 80,80,40 

40 IJ=JL-IL 

IF(IJ) 70,50,60 

C DIAGONAL TERMS OF KG 

50 VKSD(IL)=VKGD(IL)+VKE(IED) 

GO TO 80 
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C UPPER TRIfiNSLE TER>?S GF K3 

60 I=I0-IJ 

VK6S(I)=VKGS(I)+VKE(IEQ) 

SO TO 80 

C LOWER TRIANGLE TER«S OF K6 

70 IF(NSYM.NE.l) GO TO 80 

I=’-(LD(IL+1)+IJ 
V:-<GI(!)=’7KSI(!)+VK£(IEQ) 

80 IE!J=iEQ+lQ 

90 !egi=:eoi+ieqo 

C 

C ASSEMBLE £LE€NT LOAD VECTOR 

C 

100 IF(IFG.N£,1) GO TO 120 
DO 120 ID=1,IDLE 
IL=XL0CE(ID) 

IF (ID 120,120,110 
no VFenD=VFG(!L)+VFE(ID) 

120 CONTINUE 

130 RETURN 

END 
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SiJBROUTI.'E MODFG ( IDLE, N'SYM, KLOCE, VDIM?. VKE, VF5) 

C TO i»'ODIFY VECTOR FS TO TAKE INTO ACCOL^iT OF PRESCRIBED NON ZERO 



c 


D.O.F. FOR A GIVEN ELEMENT 


1 


INPUT 




c 


IDLE 


ELEMENT NUMBER OF D.O.F. 


c 


N3YM 


0=SYMMETRIC PROBLEM, 1=N0N SYMMETRIC PROBLEM 


c 


KlQCE 


ELEMENT LOCALIZATION VECTOR 


r» 


VDIMP 


VALUES OF PRESCRIBED D.O.F. 


U 


VKE 


ELEMENT MATRIX (FULL OR UPPER TRIANGLE 


c 




BY DESCENDING COLUMNS) 


w 


OUTPUT 




C 


VF6 


GLOBAL LOAD VECTOR 



IMPLICIT R£AL*8(A-H,0-Z) 

DIMENSION KLOCE (*) , VDIMPI*) , VKE (») , VFG (*> 
DATA ZERO/O.DO/ 

IEQO=IDLE 

IEQI=1 

C FOR EACH ROW OF ELEMENT ?!ATRIX 

DO 50 JD=i,IDLE 
IF(NSYM.NE.l) IEQO=JD 
I£Q=I£Q1 
Xw=KLCCE(JD) 

IQ=i 

I.-(JL) 10,50,50 
10 JL=-JL 

DIMP=VDI«P(JL) 

IFIDIKP.EQ.ZERO) GO TO 50 

C FOR EACH COLUMN OF ELEMENT MATRIX 

DO AO ID=1,IDLE 
IL=KLOCE(ID) 

IF(NSYM.EQ.l) GO TO 30 
IFCD-JD) 30,20,20 
20 IQ=ID 

30 IFCL.GT.O) VFG(IL)=VFGaL)-VKE(IEG)*DIMP 

AO IEQ=IEC-HQ 

50 IEQ1=IEQ1+I£50 

RETURN 
END 
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SUERiXlTINE PR?VTS(VKGD) 



C TO EVfiLofiTE fiN'D TO PRINT TriE PIVOTS RND THE DETERNINflNT OF MATRIX K3 



IMPLICIT R£HL»8(ft-H,0-Z) 
COMMON/, RESO/NEQ, NFILLRI2) 
C0MM0N7E3/M, MR, K?, MDUMMY ( iO) 
DIMENSION vi-;GD(*) 

SATft UN/1.D0/,BR0S/1.D36/ 
ABS(X)=DABS(X) 

X1=GR0S 

XE-3R0S 

DET=ON 

ID£T=0 



C PRINT PIVmS OF MATRIX XS 

IF(M. G£. £) WRITE (MP, 2000) (VXGD ( I ) , 1=1, NEQ) 

2000 FORMAT!/’ SLC3RL MATRIX PIVOTS’/ nX,10E12. 5)) 

DO 50 1=1, NEC 

C ABSOLUTE VALUE CF MINIMUM PIVOT 

X=ABS{VXGD(D) 

IF (X. ST. XI) SO TO 10 

x:=x 

11=1 

C ALGEBRAIC VALUE OF MINIMUM PIVOT 

X=VKSD!I) 

10 IF(X.GT.X2) GO TO 20 
X2=X 
12=1 

C- DETERMINANT (BOUNDS : 10 EXPONENT + OR - 10.) 

20 DET=DET*VKGD(I) 

30 D£T1=ABS(DET) 

IF(DETl.LT.l.DlO) SO TO 40 

D£T=D€T*1.D-10 

IDET=IDET+10 

40 IF(DETl.ST.l.D-lO) SO TO 50 

DET=DET*1.D10 
IDET=ID£T-10 
60 TO 30 
50 CONTINUE 

C OUTPUT 

WRrE(MP,2010) X1,I1,X2,I2,DET,IDET 

2010 FQRMAT(/15X, ’ABSOLUTE VALUE OF MINIMUM PIVOT =’,E12.5,’ EGURTIDN 
1;’,I5 /29X, ’ALGEBRAIC VALUE=’,E12. 5,’ EOuATICN:’, 

2 15 /29X, ’DETERMINANT =’,E12.5,’ * 10 « ’, 

3 15/) 

RETURN 

END 
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SUBROUTINE PRRESD ( VK33, VKGB, VK6I , VFG, KLD, VREB) 

C TG COMPUTE AND PRINT THE RESIDUAL VECTOR K.U - F 

IMPLICIT REAL*S(A-H,G-Z) 

COMMON/fiSSE/NS\'M, NKG, KFILLR (2) 

CQMMON/RESO/NEG, NRES, MRE3 
CGMMGN7E3/M, MR, MP, Ml, M2, M3, MDUMMY (7) 

DL'^NSICN VK3S(«) , VKBD(*) , VK3I (♦) , VFB(*), KLD(») , VRES(*) 
DATA ZERO/O.DO/ 

ABS(X)=DABS(X) 



REWIND M3 

C SKI? VECTOR FG NON MODIFIED BY B.C. ON FILE M3 

READ (M3) (VRES(I),I=1,NEG) 

C READ VECTOR FG MODIFIED BY B.C. AND MATRIX KG 

READ(M3) (VRES(I),I=1,NEQ) 

R£AD(X3) (VKGS(I),I=1,NKG), (VKGD(I),I=1,NEQ) 
IF(NSYM.EO.l) READ(M3) (VKGKI), I=1,NKG) 

C EVALUATE THE RESIDUAL VECTOR 

DO 10 1=1, NEQ 
10 VRES(I)=-VRES(I) 

CALL MULKU (VKSS, VKGD, VKGI , KLD, VFB, NEQ, NSYM, VRE3) 

DO 20 1=1, NEQ 
20 VR£S(I)=-VRES(I) 

X1=ZER0 
DO 30 1=1, NEQ 
X=ABS(VRES(I)) 

IF (XI. BE. X) GO TO 30 
X1=X 
11=1 

30 CONTINUE 

IF(M.GE.2) WRITE(MP,2000) (VRES(I), I=1,NEQ) 

2000 FORMAT!/’ RESIDUALS VECTOR’ /(IX, 10E12. 5)) 

WRITE (MP, 2010) XI, II 

2010 FORMAT!/’ MAX. RESIDUAL VALUE=’ , £12. 5, ’ EQUATiav , 15) 
RETURN 
END 
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SUSaOUTINc PRSOL (KDLNC, VC0R8, VDIMP, KNEQ, V^G) 



C TO PRINT THE SOLUTION 

IMPLICIT REflL*8(fl-H,0-Z) 

C-:flRflCTER*4 RF,RL,FX 
CCMMQN/CQOR/NDIM, NNT, NMULL (2) , FNULL (3) 

CCMMaN/£S/M, MR, MP, MDUMMY ( 10) 

COMMON/TRVL/V ( 10) , FX ( 10) , RDUMMY (506) , NULL 
DIMENSION VDIMP (♦) , KDLNC(*) , VCORG (♦) , KNEQ (*) , VFG (*) 

DATA RF/’ * ’/,RL/’ ’ /, ZERQ/0. DO/ 

X2=ZER0 

X3=ZER0 

WRITE (MP, 2000) 

2000 FOR.MAT(/’ NODES’ , AX, ’X’ , 1 IX, ’Y’ , 1 IX, ’ Z’, iOX, ’DEGREES OF FREEDOM (* 
1 = PRESCRIBED)’/) 

12=0 

DC 50 IN=1,NNT 
11 = 12+1 
I2=I2+NDIM 
ID1=KDLNC(IN)+1 
ID2=KDLNC(IN+1) 

ID=ID2-ID1+1 
IFCD2.LT.ID1) GO TO 50 
X1=VCCRG(I1) 

IF(NDIM.GE.2) X2=VC0RG(I1+1) 

IF(NDIK.G£.3) X3=VC0R6(Il+2) 

J=ID1 

DO AO 1=1, ID 
JJ=K!€Q(J) 

IF(JJ) 10,20,30 
10 V(I)=VDIMP(-JJ) 

FX(I)=RF 
30 TO AO 
20 V(I)=ZERO 

5^X(I)=RF 
GO TO AO 

■30 V(!)=VFG(JJ) 

FX(I)=RL 
AO J=J+i 

WRITE(MP,2010)IN,X1,X2, X3, (V(II),FX(II), 11=1, ID) 

2010 FORMAT ( IX, 15, 3E12. 5, 5X, 5(E12. 5, AA) /A7X, 5 (E12. 5, AA) ) 

50 CONTINUE 

RETURN 
END 
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SUBROUTINE BLELM CKLOCE, VDLS, vOI'’!^, V3LE) 

C TO GENERATE ELcf’^ENT D. 0. F. 

I>!?LICIT REAU8(fl-H,0-Z) 

COi’lMON/RGDT/IEL, I^^JL (3) , IDLE, MiLL( 10) 

COMMON/ES/M, VR, KP, KDUMW (10) 

DI>iENSION KLXE(*),VDLB(*),VDIMP(*),VDLE(») 

Dfllfi ZE.RG/O.DO/ 

C 

DO AO ID=1,IDL£ 

IL^-(LOCE{!D) 

IF (ID 10, £0,30 
10 VDLE(ID)=VDINP(-IL) 

GO TO AO 

20 VDLE(ID)=ZE.RO 

SO TO AO 

30 VDLE(ID)=VDLG(IL) 

AO CONTINUE 

IF(M.GE.2) WRITE (MP, 2000) lEL, (VDLE(ID), ID=1, IDLE) 

2000 FORMAT!’ DEGREES OF FREEDOM OF ELEMENT ’ , I5/(iX, 10E12.5)) 
RETURN 
END 
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rj c'j o 



c==== 



SUSROUTIf€ MULK'J !VKGS, VKGD, VKSI, KID, VFG, NEC, NSYir, VRE3) 



SU3PHC3R«.M ; 

TC ADD VECTOR RES TO THE PRODUCT OF MATRIX KG AND THE VECTOR FG 
INPUT 



C 

C 

C 

C 

C 



c 



VKGS,VKGD,VKSI MATRIX KG STORED BY SKYLINE 
(SYM. OR NGN SY«. ) 

KID ARRAY OF ADDRESS OF COLUMN TOP TERMS IN KG 

VFG VECTOR FG 

. NEQ ORDER OF VECTORS FG AND RES 

NSYM .EQ.1 IF NON SYMMETRIC PROBLEM 
VRES VECTOR RES 

OUTPUT 



VRES VECTOR RES 



IMPLICIT REAL*8(A-H,0-Z) 

DIMENSION VKSS{*),VKGD(*),VKGI(*),KLD(*),VFG(*),VRES(*) 



C FOR EACH COLUMN OF MATRIX XG 

DO SO IK=1,N£Q 
X-iK=KLDaK) 

JHK1=KLD{IK+1) 

LHX=JHK1-JHK 

C DIAGONAL TERMS 

C=VKGD{IX)*VFG{IK) 

IF(LHK.LE.O) GO TO 20 
IO=IK-LHK 

C ROM TERMS 

IFINSYM.NE. 1) C=C+SCAL{VKSS{JKX),VFG{IO),LHK) 
IF(NSYM.EQ. 1) C=C+SCAL{VKGI{JHK),VFG{IO),LHK) 

C COLUMN TERMS 

J=JHK 

Ii=IK-l 

DO 10 IJ=I0,I1 

VRES { IJ) =’VRES { I J)+VKGS( J) *VFG ( IK) 

10 J=J+1 

20 VRESaK)=VRESaX)+C 
RETURN 
END 
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SUBR(]UTI^iE GflUSSdPGKcD.N'DIi'!, VKPS,VCPG, IPG) 



TO FORM ARRAYS OF COORDINATES AND WEIGHTS AT GAUSS POINTS 
(i,c AND 3 DIMENSIONS) (1,2, 3 OR 4 G.P. PER DIMENSION) 
INPUT 

IPGKED NUMBER OF POINTS IN KSI,£TA,ZETA DIRECTIONS 
NDIM NUMBER OF DIMENSIONS (1,2 OR 3) 

OUTPUT 

VKPG COORDINATES OF GAUSS POINTS 

VCPG WEIGHTS AT GAUSS POINTS 

IPG T0T;«. NUMBER OF GAUSS POINTS 



IMPLICr REAU8(A-H,0-Z) 

DIi€NSION I?GKED(»),VKPG(*),VC?8(*),G(10),P(!0),INDIC(4) 



C+++ THIS IS COMMENTED OUT BECAUSE OF THE MS FORTRAN COMP- 
C+++ ILER BUG WHICH WILL NOT INITIALIZE $LARGE ARRAYS. 

C+++ THESE ARRAYS ARE NOW INITIALIZED BY A CALL TO A DUMMY 
C+-H- SUBROUTINE INITGA WHICH EXISTS SOLELY TO INITIALIZE 
C+-H- THESE THREE ARRAYS 
C 

C DATA INDIC/1,2,4,7/ 

C DATA G/O. ODD, 577350269 189626D0, . 577350269189626DO, 

C 1 -.7745%6692414a3D0,0.0D0,.774596669241485D0, 

C 2 -.861 13631 1594050DO,-.339981043584860DO, 

C 3 .339981043584860D0,. 86113631159405000/ 

C DATA P/2.0D0,1.0D0, l.CDO, 

C 1 0.555555555555556D0,0.888888888888889D0,0.555555555555556D0, 

C 2 .347854845137450D0,. 6521451548625501)0, 

C 3 . 65214515486255000,. 3478548451374501)0/ 

C 

C HERE IS THE CALL TO GET AROUND THE MICROSOFT 

C COMPILER BUS 

C 

CALL INITGA (INDIC,G,P) 

C 

C+++ ALL OF THIS HAS BEEN TO GET AROUND THE MICROSOFT 
C4-H- COMPILER BUG 
C 

C 

II=IPGKED(1) 

IMIN=INDIC(II) 

IMAX=IMIN+II-1 
IF(NDIM-2) 10,20,30 

C 1 DIMENSION 

10 IP6=0 

DO 15 I=IMIN,IMAX 

IPG=IPG+1 

VKPG(I?G)=G(I) 

15 VCPG(IPG)=P(I) 
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lO 



•RETURN 

— 2 DIMENSIONS 
II=IP6K£D{2) 
JM!N=INDIC(II) 
JMfiX=JMIN+II-l 
I?G=0 
L=I 

DO 25 I=IMIN,IMfiX 
DO 25 J=JMIN,JMflX 
I.0G=IP6+1 
VKPG(L)=G(I) 
VKPG(L+1)=G(J) 

L=L+2 

25 VCPG(IPS)=P(I)«P(J) 

RETURN 

C 3 DIMENSIONS 

30 II=IPGKED(2) 

JMIN=INOIC(II) 
JMflX=JMIN+II-l 
i:=IPGK£D(3) 
KMIN=INDIC(II) 
KMflX=i<MIN+II-l 
IPG=0 



DO 35 I=IMIN, IMflX 

DO 35 J=JMIN,JMflX 

DO 35 K=K«IN,KMflX 

IPG=!PG+1 

VKPB(L)=G(I) 

VKPG(L+l)=6(J) 

VKPG(L+2)=G(K) 

L=l+3 

35 yCPSaP6)=P(I)*P(J)*P(K) 
RETURN 
END 
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SUBROUTINE PNINV (VKSI , KEX?, VP, XI , VPN) 

C EVfiLUflTE THE PN-INVERSE XflTRIX WHICH 
C CONTfllNS THE COEFFICIENTS CF FUNCTIONS N 
C INPUT VX3I, KEXP, INEL, IDLE, ITPE, X, X? 

C WORKSPACE VP,K1 

C OUTPUT VPN 

IMPLICIT REfiL^^8(fi-K,D-Z) 

CGXX0N/CCC3/NDIX, NNULL (3) , FNULL (3) 

C0MMCN7R3DT/IEL, ITPE; ITPEl, IGRE, IDLE, ICE, IPRNE, IPREE, INa, IDES, IPG 
i , NULL (4) 

COXXGN/ES/M, MR, MP, MDuMMY (10) 

DIMEf^SION WSI (*} , KEXP (*) , VP (^^) , K1 (*) , VPN (♦) , KDER (3) 

DATA ZERO/O.DC/ 

C 

C+-H- THIS IS TO SET AROUND -HE MICROSOFT COMPILER BUG 

C+++ WHICH WILL NOT INITIALIZE «LARGE ARRAYS 

C DATA KDER/3HV 
C 

KDER(l) = 0 
KDER(£) = 0 
XDER(3) =0 

C+++ ALL THIS HAS BEEN TO SET AROUND THE MICROSOFT 
C+++ COMPILER BUG 

n 

w 

C 

c 

C FORM ?N MATRIX (FOR ANY LAGRANGE TYPE ELEMENT) 

C 

C 

10=1 

11=1 

DO 20 IN=1,INEL 

CALL BASEP(VKSI(I1),KEXP,KDER,VP) 

12=10 

DO 10 IJ=1,INEL 
V?N(I2)=VP(IJ) 

10 I2=I2+INEL 

10 = 10+1 

20 I1=I1+NDIM 



END OF PN FORMATION 
C 

C PRINT THE PN MATRIX 

IF(M.LT.A) GO TO 40 
URITE(MP,2000) 

2000 FORMAT (/’ PN MATRIX’/) 
ID=(IN£L-l)*INa 
DO 30 10=1, INa 
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n=io+iD 

30 ;*RITS(MP,2010) (VPN(IJ), IJ=I0, II, INEL) 

2010 PORMflTliX, i0E13.5/ll4X,9E13.5)) 

C INVERSE THE PN MATRIX 

40 CALL INVERSIVPN,INEL,IN£L,K1,DET) 

IF (DEL NE. ZERO) 60 TO 50 
WRITE (MP, 2020) ITPE 

2020 FQRMAK’ *** ERROR, PN SINGULAR, ELEMENT TYPE;’, 13) 
STOP 

C PRINT THE PN-INVERSE MATRIX 

50 IF(M.LT.A) GO TO 70 
WRITE (MP, 2030) 

2030 FORMAT!/’ PN-INVERSE MATRIX’/) 

DO 60 10=1, INEL 
I1=I0+ID 

60 WRITE (MP, 2010) (VPN(IJ), IJ=IO, II, INEL) 

70 RETURN 

END 
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$LfiRGE 

$D£SL’G 

JNOFLOfiTCflLLS 

$ 00 && 

SUBROUTINE NI (VKSI,KEX?,KD£R,VP,VPN,VNI) 

C TO EVALUATE FUNCTIONS N OR THEIR DERIVATIVES 
C AT POINT VKSI ON THE REFERENCE ELEMENT 
C INPUT VKSI, KEXP,KDER, VP, VPN, IDLE, M,MP 

C OUTPUT VNI 

- — 

IMPLICIT REAL*8(A-H,0-Z) 

COMMON/COOR/NDIM, NNULL (3) , FNULL (3) 

CCMMON/RGDT/IEL, ITPE, ITPEl, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDEG, IPG 
1 , NULL (A) 

COMMON/ES/M, MR, MP, MDUMMY ( 10) 

DIMENSION VKSI (*) , KEXP(») ,KDER(*) , VP(*) , VPN (♦) , VNI (♦) 

DATA ZERO/O.DO/ 

C 

C COMPUTE THE POLYNOMIAL BASIS AT POINT VKSI 

CALL BASEP(VKSI,K£XP,KD£S,VP) 

C P*(PN-INVERSE) PRODUCT 

10=1 

DO 20 IJ=1,INEL 
11=10 
C=ZERO 

DO 10 11=1, INEL 
C=C+VP(II)*V?N(I1) 

10 11 = 11+1 

VNI(IJ)=C 
20 I0=10+II€L 

C PRINT FUNCTIONS N 

IFIM.lt. 3) GO TO 30 
HRITE(MP,2000) (KDER(I),I=1,NDIM) 

2000 FORMAT!/’ DERIVATIVE OF N WITH ORDER ’,312) 

WRITE (MP, 2010) (VKSI(I),I=1,NDIM) 

2010 FORMATdAX, ’AT POINT ’,3E13.5) 

WRITE (MP, 2020) (VNI (I), 1=1, INEL) 

2020 F0RMAT(/(1X,10E13.5)) 

30 RETURN 

END 
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SfSRGLi'TIME 3flSE?(VKSI, KEXP, KDER, VP) 

C TO EVALUATE THE POLYNOMIAL BASIS AND ITS DERIVATIVES AT POINT VKSI 
C INPUT VKSI, KEXP, KDER, IDLE, IDES, NDIM, M, MP 

C OUTPUT VP 

IMPLICIT REAL*8<A-H,Q-Z) 

C0riM0^7C0GR/^J)IM, NNULL (3) , FNULL (3) 

COMMON/RGDT/IEL, ITPE, ITPEl, IBRE, IDLE, ICE, IPRNE, IPREE, INB., IDES, IPG 
1 ,NULL(4) 

CDMMON/ES/M, MR, MP, MDUMMY ( 10) 

DIMENSION VKSI (♦) , KEXP (*) , KDER(*) , VP («) 

DIMENSION ?UISS(3,10) 

DATA ZER0/0.D0/,UN/1.D0/ 



C FORM SUCCESSIVE POWERS OF KSI, ETA, DZETR 

DO 10 I=1,NDIM 
PUISS(I,1)=UN 
DO 10 ID=1,IDES 

10 PUISSd, ID+1)=PUISS(I, ID)*VKSI (I) 

C DERIVATIVES OF ORDER KDER WITH RESPECT TO KSI,ETA,DZETR 

DO 50 IDL=1, INEL 
C1=UN 

I0=(IDL-1)*NDIM 
DO 30 I=1,NDIM 
IDR=KDER(I) 

10 = 10+1 

IX?=i<£XP(IO)+l 

J=IXP-IDR 

IF(J.LE.O) GO TO 40 
IF(IDR.LE.O) GO TO 30 
DO 20 ID=1,IDR 
20 C1=C1*(IXP-ID) 

30 C1=C1*PUISS(I,J) 

GO TO 50 
40 C1=ZER0 

50 VP(IDL)=C1 

C PRINT POLYNOMIAL BASIS 

IF(M.LT.4) GO TO 60 
WRITE(MP,2000) (KDER(I), I=1,NDIM) 

2000 FORMAT!/’ POLYNOMIAL BASIS, DERIVATIVE OF ORDER ’,312) 

WRITE (MP, 2010) (VKSI(I),I=1,NDIM) 

2010 FORMATdSXj’AT POINT ’,3E13.5) 

WRITE (MP, 2020) (VPd), 1=1, INEL) 

2020 F0RMAT(/(1X,10E12.5)) 

60 RETURN 

END 
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SUBROUTINE INVERS(VP, N, IVP, K, DET) 



C= 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 



TO INVERT fl NON-SY>ll€TRIC MATRIX WITH SEARCH OF A 
NON-ZERO PIVOT IN A COLIMN 
INPUT 

VP MATRIX TO BE INVERTED 

N ORDER OF THE MATRIX 

IVP DIMENSION OF mE MATRIX IN THE CALLING PROGRAM 

K INTEGER WORKING ARRAY WITH LENGTH N 

OUTPUT 

VP INVERSE MATRIX 

DET DETERMINANT 



IMPLICIT REAL*8(A-H,Q-Z) 

DIMENSION VP(IVP,IVP),K(N) 

DATA ZERQ/0. DO/, UN/1. DO/, EPS/1. D-13/ 
ABS(X)=DA3S(X) 

C 

DET=UN 
DO 5 1=1, N 
5 K(I)=I 

C START INVERSION 

DO 30 11=1, N 

C SEARCH FOR NON-ZERO PIVOT IN COLUMN II 

DO 10 I=II,N 
PIV=VP(I,II) 

IF(ABS(PIV).GT.EPS) GO TO 20 
10 CONTINUE 
DET=ZERQ 
RETURN 

C EXCHANGE LINES II AND I 

20 DET=DET*PIV 

IF(I.EQ.II) GO TO 40 
I1=K(II) 

Kni)=K(I) 

K(I)=I1 
DO 30 J=1,N 
C=VP(I,J) 

VP(I,J)=VP(II,J) 

30 VP(II,J)=C 

DET=-DET 

C NORMALIZE PIVOT LINE 

40 C=UN/PIV 

VPai,II)=UN 
DO 50 J=1,N 

50 VP(II,J)=VP(II,J)*C 

C ELIMINATION 

DO 70 1=1, N 
IF(I.EQ.II) GO TO 70 
C=VP(I,II) 
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VP(I,ID=2ER0 
DO 60 J=1,N 

60 VP(I,J)=VP(I,J)-C*VP(II,J) 

70 CONTINUE 

80 CONTINUE 

C REORDER THE COLUMNS OF INVERSE MATRIX 

DO 120 J=1,N 

C FIND J1 SUCH THAT K(J1)=J 

DO 90 J1=J,N 
JJ=K(J1) 

IF(JJ.EQ.J) GO TO 100 
90 CONTINUE 

100 !F(J.EQ.J1) GO TO 120 

C EXCHANGE COLUMNS J AND J1 

K(J1)=K(J) 

DO 110 1=1, N 
C=VP(I,J) 

VP(I,J)=VP(I,J1) 
no VP(I,J1)=C 
120 CONTINUE 

RETURN 
END 
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SJ3RQUTINE JACOB (VNI,VCOR£,NDIM, IN£L,VJ,VJ1,DETJ) 



C TO EVALUATE THE JACOBIAN MATRIX, ITS DETERMINANT AND 
C ITS INVERSE (1,2,3 DIMENSIONS) 

C INPUT 
C VNI 

C 

C VCORE 

C NDIM 

C INEL 

C OUTPUT 

C VJ 

C VJl 

C DETJ 

IMPLICIT R£AL*8(A-H,0-Z) 

DIMENSION VNI ( INEL, *) , VCORE (NDIM, ♦) , VJ (♦) , VJl (♦) 

DATA ZERO/O.DO/,UN/l.DO/ 

C 

C FORK THE JACOBIAN MATRIX 

J=1 

DO 20 JJ=1,NDIM 
DO 20 11=1, NDIM 
C=ZEHO 

DO 10 IJ=1,INEL 

10 C=C+VNI(IJ,II)*VCORE(JJ,IJ) 

VJ(J)=C 
20 J=J+1 

C 1, 2, OR 3 DIMENSIONAL INVERSION 

GO TO (40, 50, 60), NDIM 
40 DETJ=VJ(1) 

IF (DETJ. EQ. ZERO) RETURN 
VJ1(1)=UN/DETJ 
RETURN 

50 D£TJ=VJ(1)*VJ(4)-VJ(2)*VJ(3) 

IF(DETJ.EQ.ZERO) RETURN 
VJl (1)=VJ(4) /DETJ 
VJl (2)=-VJ(2) /DETJ 
VJ1(3)=-VJ(3)/D£TJ 
VJl (4)=VJ(1) /DETJ 
RETURN 

60 DETJ=VJ(1)*(VJ(5)*VJ(9)-VJ(8)*VJ(6)) 

1 +VJ (4) ♦ (VJ (8) *VJ (3) -VJ (2) *VJ (9) ) 

2 +VJ (7) ♦ (VJ (2) *VJ (6) -V J (5) *VJ (3) ) 

IF ( DETJ. EQ. ZERO) RETURN 
VJ 1 ( 1 ) = ( VJ (5) *VJ (9) -VJ (6) *VJ (8) ) /DETJ 
VJ1(2)=(VJ(3)*VJ(8)-VJ(2)*VJ(9))/DETJ 
VJ 1 ( 3) = ( VJ (2) *VJ ( 6) -VJ (3) *V J (5) ) /DETJ 
VJ1(4)=(VJ(7)*VJ(6)-VJ(4)*VJ(9))/DETJ 
VJ 1 (5) = ( VJ ( 1 ) *VJ (9) -VJ (7) *VJ (3) ) /DETJ 



DERIVATIVES OF INTERPOLATION FUNCTION W.R.T. 

KSI,ETA,DZETA 

ELEMENT NODAL COORDINATES 

NUM3ER OF DIMENSIONS 

NUMBER OF NODES PER ELEMENT 

JACOBIAN MATRIX 

INVERSE OF JACOBIAN MATRIX 

DETERMINANT OF JACOBIAN MATRIX 
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o C-? 



VJ1(6)=(VJ(A)*VJ(3)-VJ(6)*VJ(1))/DETJ 

VJl (7) = (VJ (A) *VJ (8) -VJ(7) *VJ(5) ) /DETJ 

VJl (0) = ( VJ (2) *VJ (7) -V J (8) *VJ ( 1 ) ) /DETJ 

VJ1(3)=(VJ(1)*VJ(5)-VJ(A)*VJ(2))/DETJ 

RETURN 

END 



C= 

C 

C 



C 

C 

C 

C 

c 

c 

c 

c= 



c- 



.10 

20 



SJBROUTINE DNIDX(VNI,VJ1,NDIM,INEL,VNIX) 



COMPUTE THE DERIVATIVES OF INTERPOLATION FUNCTIONS WITH 
RESPECT TO X,Y,Z 
(1,2 OR 3 DIMENSIONS) 

INPUT 

VNI DERIVATIVES OF INTERPOLATION FUNCTIONS WITH RESPECT 
TO KSI,ETA,DZETA 
VJl INVERSE OF THE JACOBIAN 

NDIM NUMBER OF DIMENSIONS (1,2 OR 3) 

INEL NUMBER OF INTERPOLATION FUNCTIONS (OR NODES) 

OUTPUT 

VNIX X,Y,Z DERIVATIVES OF INTERPOLATION FUNCTIONS 



IMPLICIT REAL*0(A-H,O-Z) 

DIMENSION VNI ( INEL, *) , VJl (NDIM, *) , VNIX (INEL, *) 
DATA ZERO/O.DO/ 



DO 20 1=1, NDIM 
BO 20 J=l, INEL 
C=ZERO 

DO 10 IJ=1,NDIM 

C=C+VJ1(I,IJ)*VNI(J, IJ) 

VNIX(J,I)=C 

RETURN 

END 
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c= 

c 



SUBROUTINE SOL (VKGS, VKGD, VKGI, VFG, KLD, NEQ, MP, IFflC, ISOL, NSYM, ENERG) 

TO SOLVE fl LINEAR SYSTEM (SYMMETRICAL OR NOT). 

THE MATRIX IS STORED IN CORE BY SKYLINES IN ARRAYS 
VKGS, VKGD, VKGI 



INPUT 

VKGS, VKGD, VKGI 

VFG 

KLD 

NEQ 

MP 

IFAC 

ISOL 

NSYM 

OUTPUT 

VKGS, VKGD, VKGI 

VFG 

ENERG 



SYSTEM MATRIX : UPPER, DIAGONAL AND 
LOWER PARTS 
SECOND MEMBER 

ADDRESSES OF COLUMN TOP TERMS 
NUMBER OF EQUATIONS 
OUTPUT DEVICE NUMBER 
IF IFAC.EQ.l TRIANGULARIZE THE 
MATRIX 

IF ISOL.EQ.1 COMPUTE THE SOLUTION FROM 

TRIAN6ULARIZED MATRIX 

INDEX FOR NONSYMMETRIC PROBLEM 

TRIANGULARIZED MATRIX (IF IFAC.EQ.l) 
SOLUTION (IF ISOL.EQ.1) 

SYSTEM ENERGY (IF NSYM.EQ.O) 



IMPLICIT REAL*8 (A-H,0-Z) 

DIMENSION VKGS(*),VKGD(*),VKGI(*),VFG(*),KLD(*) 
DATA ZERO/O.ODO/ 



IK=1 

IF ( VKGD (l).EQ. ZERO) GO TO 80 
ENERG=ZERO 

FOR EACH COLOIN IK TO BE MODIFIED • 



JHK=1 

DO 100 IK=2,NEQ 

C ADDRESS OF THE NEXT COLUMN TOP TERM IK+1 

JHK1=KLD(IK+1) 

C HEIGHT OF COLUMN IK (INaUDE UPPER AND DIAGONAL TERMS) 

LHK=JHK1-JHK 

LHK1=LHK-1 

C ROW OF FIRST TERM TO BE MODIFIED IN COLUMN IK 

IMIN=IK-LH(1 

IMIN1=IMIN-1 

C ROW OF LAST TERM TO BE MODIFIED IN COLUMN IK 

IMAX=IK-1 

IF(LHKl.LT.O) GO TO 100 
IFdFAC.NE.!) GO TO 90 

IF (NSYM. EQ. 1 ) VKGI ( JHK) =VKGI ( JHK) /VKGD ( IMINl ) 
IF(LHKl.EQ.O) GO TO 40 
C 

C MODIFY NON-DIAGONAL TERM IN COLUMN IK 
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c 

JCK=JHK+1 

JHJ=KU)n«IN) 

C FOR EACH TERM LOCATED AT JCK AND CORRESPONDING TO COLUMN IJ 

DO 30 IJ=IMIN, IMAX 
JHJl=KLDaj+l) 

C NUMBER OF MODIFICATIVE TERMS FOR COEFFICIENT LOCATED AT JCK 

IC=«INOUCK-JHK, JHJl-JHJ) 

IF aC. L£. 0. AND. NSYM. EQ. 0) SO TO 20 
C1=ZER0 

IF(IC.LE.O) GO TO 17 

J1=JHJ1-IC 

J2=JCK-IC 

IF(NSYW.EQ.l) 80 TO 15 

VKGS ( JCK) =VKGS (JCK) -SCAL ( VKGS ( J1 ) , VKGS ( J2) , IC) 

GO TO 20 

15 VKGS(JCK)=VKGS(JCK)-SCAL(VKGI(J1),VKGS(J2),IC) 

C1=SCAL ( VKGS ( J1 ) , VKSI ( J2) , IC) 

17 VKGI(JCK)=(VKGI(JCK)-C1)/VKGD(IJ) 

20 JCK=JCK+1 
30 JHJ=JHJ1 

C 

C MODIFY DIAGONAL TERM 

C 

40 JCK=JHK 

CDIA6=ZER0 
DO 70 IJ=IMIN1,IMAX 
C1=VKGS(JCK) 

IF(NSYM.EQ.l) 60 TO 50 
C2=C1/VKGD(IJ) 

VKGS (JCK) =C2 
GO TO 60 

50 C2=VKGI (JCK) 

60 COIAGCDIAG+CHtCa 
70 JCK=JCK+1 

VKGD(IK)=VKGD(IK)-CDIAG 
IF(VKGDdK)) 90,80,90 
BO WRITE (MP, 2000) IK 

2000 FORMAT!’ *** ERROR, ZERO PIVOT EQUATION ’,15) 

STOP 

C 

C SOLVE LOWER TRIANGULAR SYSTEM 

C 

90 IF(ISOL.NE.l) GO TO 100 

IF (NSYM. NE. 1 ) VFG ( IK) =VFG ( IK) -SCAL (VKGS ( JHK) , VFG ( IMINl ) , LHK) 
IF(NSYM.EQ.l) VFG(IK)=VFG(IK)-SCAL(VKei(JHK),VF8(IMINl),LHK) 
100 JHK=JHKi 

IF(ISOL.NE.l) RETURN 
C 

C SOLVE DIAGONAL SYSTEM 

C 
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IF(NSY«.EQ.I) GO TO 120 
DO no IK=1,NEQ 
C1=VKGD(IK) 

C2=VFG(IK)/C1 

0FG(IK)=C2 

no ENERG=ENERG+C1*C2*C2 
C 

C SOLVE DIAGONAL SYSTEM 

C 

120 IK=NEQ+1 
JHK1=KLD(IK) 

130 IK=IK-1 

IF (NSYM. EQ. 1 ) VFG ( IK) =VFG ( IK) /VKGD ( IK) 

IF(IK.EQ.l) RETURN 
C1=VFG(IK) 

JHK=KLD(IK) 

JBK=JHK1-1 

IF(JHK.GT.JBK)GO TO 150 
IJ=IK-JBK+JHK-1 
DO 140 JCK=JHK,JBK 
'^G(IJ)=VFS(IJ)-VKGS(JCK)*C1 
140 IJ=IJ+1 
150 JHK1=JHK 
GO TO 130 
END 

FUNCTION SCAL(X,Y,N) 

C INNER PRODUCT OF VECTORS X AND Y OF LENGTH N 
C (FUNCTION TO BE HRIHEN EVENTUAaY IN ASSEMBLER) 



IMPLICIT REAL*a(A-H,0-Z) 
DIMENSION X(»),Y(») 

DATA ZERO/O.ODO/ 



SCAL=ZERO 
DO 10 1=1, N 

10 SCAL=SCAL+X(I)»Y(I) 
RETURN 
END 
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SUBROUTINE BUIND 



0 ================================== 

C TO CALL BLOCK ’LIND’ 

C TO ASSEMBLE AND TO SOLVE A LINEAR PROBLEM WHEN MATRIX KB IS 
C STORED BLOCKMISE ON DISK 

r : 

IMPLICIT REAL*8(A-H,0-Z) 

CHARACTER*A TBL 

COMMON/COOR/NDIM, NNT, NDLN, NDLT, FNULL (3) 

COMMON/aEM/NULL (A) , ME, !<WULL (2) 

COi^ON/ASSE/NSYM, NKG, NKE, NDLE 
COMMON/RESO/NEQ, NRES, MRES 
CQ??^ON/LIND/NLBL, NBLM, MKGl, MKG2 
COMMON/ES/M, MR, MP, Ml , M2, M3, MA, M5, MDUMMY (5) 

COMMCN/AaOC/NVA, IVA, IVAMAX,NR£a, IDUMMY 

COMMON/LOC/LCORG, LDLNC, LNEQ, LDIMP, LPRNG, LPREG, aD, aOCE, LCORE, LNE, 
1 LPRNE, LPREE, LDLE, LKE, LFE, LKGS, LKGD, LKGI, LFG, LRES, LDLG, LDUMMY ( A) 
COMMON VA(1) 

DIICNSION TBL(10),IN(3) 

DATA DEUX/2. DO/, NBLMAX/100/ 

C+++ THIS IS COMMENTED OUT BECAUSE OF AN MS FORTRAN COMPILER 

C+++ bug which Wia not initialize $LARGE ARRAYS. THIS ARRAY 

C+++ IS NOW INITIALIZED BY A CAa TO A DUMMY SUBROUTINE 
C+++ INITBL WHICH EXISTS SOLaY TO INITIALIZE THIS ARRAY 
C 

C DATA TBL/’KGS ’,’KBD ’,’KBI ’,’FB ’,’KE ’,’a ’,’RES ’,’aE ’, 

C 1 ’EB ’,’PB ’/ 

C 

C HERE IS THE CAa TO SET AROUND THE COMPiaR BUS 

CAa INITBL (TBL, ’LIND’) 

C 

C+++ Aa OF THIS IS TO GET AROUND THE MICROSOFT 
C+++ COMPiaR BUG 
C 

C 

C FILE NUMBERS 

IF(Ml.£Q.O) M1=MR 
IF(M2.EQ.O) M2=«E 
IF(M3.EQ.O) M3=MRES 
IF(MA.EQ.O) MA=MKG1 
IF(M5.EQ.O) M5=MKG2 

OPEN (M3, Fia=’ Hm. DAT’ , STATUS=’ NEW’ , FORM=’ UNFORMATTED’ ) 

OPEN (MA, Fia=’ $$MA$. DAT’ , STATUS=’ NEW’ , FORM=’ UNFORMATTED’ ) 

OPEN (M5, Fia=’ $$M5$. DAT’ , STATUS=’ NEW’ , FORM=’ UNFORMAHED’ ) 

C READ aOCK PARAMETERS 

READ(M1,1000) IN 
1000 FORMAT (315) 

IF(IN(1).N£.0) NRES=1 
NLa=IN(2) 

NBLM=IN(3) 
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WRITE («P, 2000) M,NRES 

2000 FOR'^flK//’ ON DISK RSSEMBLA6E AND LINEAR SOLUTION (N=’,I2,’)’/ 

1 ’ ’,42 (’=’)/15X,’ INDEX FOR RESIDUAL COMPUTATION (NR£S)=’,I5) 
IFILKSD.ED.l) CAa ESPACEINEQ, 1,TBL(2),LKGD) 

IRLF6.EQ.1) CALL ESPACEINEQ, 1,TBL(4),LFS) 

IF (LKE. EQ. 1 ) CAa ESPACE (NKE, 1, TBL (5) , LKE) 

IF(LFE.EQ.l) CAa ESF-ACEINDLE, 1,TBL(6),LFE) 

IF(LRES.£Q.l) CALL ESPACE (NDLT, 1, TBL (7), LRES) 

IF(LDLE.EQ.l) CALL ESPACE (NDLE, 1, TBL (a),LDa) 

C FIND BLOCK LENGTH 

13=2 

r2=l+NSYM 

IF(NLBL.EQ.O) GO TO 10 
IF(NK.M.EQ.O) NBLM=f«G/NLBL+2 
GO TO 30 

10 Il=NVA-IVA-(2*NBLMAX+2)/NREEL-l 
IFUl.GE. (NKB*I2+2)) GO TO 20 



C CASE WHERE MATRIX IS TO BE SEGMENTED 

NLBL=I1/(DEUX*I2) 

NBLM=NKG/NLBL+2 
GO TO 30 

C CASE WHERE MATRIX IS IN CORE 

20 NLBL=M<G 

NBL«=1 
13=1 

30 WRITE (MP, 2010) NLBL,NBL« 



2010 FORMAT! 

1 15X,’ BLOCKS LENGTH IN KG (NLBL)=’,I5/ 

2 15X,’MAX. NUMBER OF BLOCKS IN KG =’,I5) 

CALL ESPACE(NBLM+1,0,TBL(9),LEB) 

CALL ESPACE(NBLM,0,TBL(10),LPB) 

IF(LKGS.£Q.l) CAa ESPACE (NLBL*I3, 1, TBL a),LKGS) 
IF(NSYM.EQ.l.AND.LKGI.EQ.l) CALL ESPACE(NLBL*I3, 1,TBL(3),LKGI) 
CAa EXLIND(VA(LLD),VA(LDIMP),VA(aOCE),VA(LCOR£),VA(LPRNE), 

1 VA (LPREE) , VA (LNE) , VA (LKE) , VA (LFE) , VA (LKGS) , VA (LKGD) , 

2 VA (LKGI ) , VA (LFG) , VA (LCORG) , VA (LDLNC) , VA (LNEQ) , 

3 VA(LRES),VA(LDLE),VA(LEB),VA(LPB)) 

RETURN 

END 



BLLD 44 
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SUBROUTINE EXL IND (KID, VDIXP, KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, 
! VKGS, VKGD, VKGI, VFG, VCORG, KDLNC, KNEQ, VRES, VDLE, KEB, KPB) 

====—====—— -■ - == 

C TO EXECUTE BLOCK 'LIND’ 

C ASSEMBLE M) SOLVE A LINEAR PROBLEM WHEN MATRIX KG IS STORED 
C BLOCKWISE ON DISK 

IMPLICIT REAL*8(A-H,0-Z) 

COMMON/ASSE/NSYM, NKS, NKE, NDLE 
CCMMON/RESO/NEQ, NRES, MRES 
COJKON/LIND/NLBL, NBLM, MKGl, MKG2 
CQMMQN/ES/M, MR, MP, Ml, M2, M3, MDIM^ (7) 

DI>£NSICN KLD(*),VDIMP(*),KLOCE(»),VCORE(*),VPRNE(*),VPREE(*), 

1 KKE(*),VKE(*),VFE(*),VKGS(*),VKGD(*),VKGI(*),VFG(*),VCORG(*), 

2 KDLNC(*),KNEQ(*),VRES-:*),VDLE(*),K£B(*),KPB(*) 

C 

REWIND M3 

C FORM TABLES EB AND PB DEFINING EQUATION BLOCKS 

CALL EQBLOC(KLD,NLBL, NBLM, NEQ, KEB, KPB) 

WRITE (MP, £000) NBLM 

£000 FORMAT (15X, 'NUMBER OF BLOCKS IN KG (NBLM)=',I5) 

IF(M.LT.£) GO TO 10 
I1=NBLM+1 

WRITE(M?,£010) (KEB(I),I=1,I1) 

2010 FORMAT!/' FIRST EQUATION IN EACH BLOCK (EB)’ /(5X,20I5) ) 

WRITE (MP, 2020) (KPB(I),I=1,NBLM) 

£020 FORMAT!/' FIRST BLOCK CONNECTED TO EACH BLOCK; (PB)’/(5X,20I5)) 

C SAVE FG UNMODIFIED FOR PRESCRIBED B.C. 

10 WRITE (M3) (VFG(I),I=1,NEQ) 

IF(M.G£.2) WRITE (MP, 2030) (VFG(I), I=1,NEQ) 

2030 FORMAT!/’ GLOBAL LOAD VECTOR UNMODIFIED FOR THE B.C. (FG)’ 
1/(1X,10E12.5)) 

C ASSEMBLE KG, MODIFY FG FOR B.C. AND SAVE MODIFIED FG 

CAU ASKGD (KLD, VDIMP, KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, VKGS, 

1 VKGD, VKGI, VFG, VDLE, VRES, KEB) 

WRITE(M3) (VFG(I),I=1,NEQ) 

C PRINT FG 

IF(M.GE.2) WRITE (MP, 2040) (VFG(I), I=1,N£Q) 

2040 FORMAT!/’ GLOBAL LOAD VECTOR MODIFIED FOR THE B.C. (FG)’ 

1 /(1X,10E12.5)) 

C 

C SOLVE 

p 

w 

20 CALL SOLD(VKGS, VKGD, VKGI, VFG, KLD, NEQ, MP, 1, 1, NSYM, ENER6, KEB, KPB) 
IF(NSYM.NE.l) WRITE (MP, 2050) ENERG 
£050 FORMAT (15X, 'ENERGY (ENERG)=’, 1E1£.5) 

C KG PIVOTS AND DETERMINANT 

30 CALL PRPVTS(VKGD) 

C PRINT OUT THE SOLUTION 

WRITE (MP, £060) 
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2060 F0R«flT(//’ SOLUTION’//) 

CPLL PRS0L(KDLNC,VC0RG,VDIf1P,KNEQ,VFG) 

C 

C EVflLlWTE fiND PRINT GRADIENTS 

C 

CAa ASGRAD(KU), VDIMP, KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, VKGS, 
1 VKGD,VKGI,VFG,VDLE,VR£S) 

C 

C EVALUATE AND PRINT EQUILIBRIUM RESIDUALS AND REACTIONS 

C 

C READ VECTOR FG AND CHANGE ITS SIGN 

REWIND K3 

READ (M3) (VRES(I),I=1,NEQ) 

DO AO 1=1, NEQ 
40 VRES(I)=-VRES(I) 

C ASSEMBLE RESIDUALS AND REACTIONS 

CALL ASRESDd, 1, KLD, VDIMP, KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, 

1 VKGS, VKGD, VKGI, VFG, VDLE, VRES, VRES(NEQ+1 ) ) 

C OUTPUT 

WRITE (MP, 2070) 

2070 FORMAT!//’ EQUILIBRIUM RESIDUALS AND REACTIONS’//) 

CALL PRSOL (KDLNC, VCORG, VRES (NEQ+1 ) , KNEQ, VRES) 

RETURN 

END 
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SUBROUTINE EQBLOCIKLD, MBL, NBLMAX, NEQ, KEB, KPB) 



o— 






c 


TO FORM TABLES KEB fWD KPB DEFINING EQUATION BLOCKS 


C 


INPUT 




c 


KLD 


ARRAY OF A ADDRESS OF COLUMN TOP TERMS IN KG 


c 


NLBL 


BLOCKS LENGTH 


c 


NBLMAX 


MAX. NUMBER OF BLOCKS ALLOWED 


c 


NEQ 


NUMBER OF EQUATIONS 


c 


OUTPUT 




c 


KEB 


ARRAY CONTAINING THE NUMBERS OF FIRST EQUATIONS IN 


c 




EACH BLOCK !DIMENSION NEQ+1) 


c 


KPB 


ARRAY CONTAINING THE NUMBER OF FIRST BLOCKS CONNECTED 


c 




TO EACH BLOCK !DIMENSION NEQ) 


c 

r — 


NBLMAX 


NUMBER OF BLOCKS 


L - 


COMMON/ES/M, MR, MP, MDUMMY ! 10) 
DIMENSION KLD!»),KEB!*),KPB!*) 


c — 







C FIRST BLOCK 

ILBL=0 

NBL=l 

K£B(l)=l 

KPB(l)=l 

IMIN=l 

C FOR EACH EQUATION 

DO 70 IK=l,N£Q 

C ADDRESSES FOR COLUHN IK 

JHK=KLD(IK) 

JHKl=KLD(IK+l) 

LBKI=JHK1-JHK 
IF(LBK1.LE.NLBL) GO TO 10 
WRITE (MP, 2000) IK,LBKl,NLBL 

2000 FORMAT!’ ERROR, COLUMN’, 15,’ GREATER!’, 15,’ )THAN BLOCK!’ ,15,’ 

1 )’) 

STOP 

C CHECK FOR NEW BLOCK 

10 ILBL=ILBL+LBK1 

IF!ILBL.LE.NLBL) GO TO 60 

NBL=NBL+1 

IF!NBL.LE.NBLMAX) GO TO 20 
WRITE !«P, 2010) IK 

2010 FORMAT!’ *** ERROR, EXCESSIVE NUMBER OF BLOCKS, EQUATION’ , 15) 

STOP 

20 KEB!NBL)=IK 

ILBL=LBK1 

C SEARCH FOR FIRST BLOCK CONNECTED TO COMPLETED BLOCK 

IB=NBL 

40 IF!IMIN.GE.KEB!IB)) GO TO 50 

IB=IB-1 
GO TO 40 
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50 KPB(NBL-1)=IB 

IMIN=IK 

0 SEARCH FOR MINIMUM ROW NUMBER FOR COLUMN TOP TERMS 

60 I=IK-LBKH-1 

IF(I.LT.IMIN)IMIN=I 

70 CONTINUE 

C FIRST BLXK CONNECTED TO LfiST BLOCK 

IB=NBL 

80 IF(IMIN.6E.KEB(IB)) GO TO 90 

IB=IB-1 
GO TO 80 

90 KPB(NBL)=IB 

KEB(NBL+1)=NEQ+1 

NBLMflX=NBL 

RETURN 

END 
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SLSBROUTINE flSKGD (KLD, VDIMP, KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, 

1 VKGS, VKGD, VKSI , VFG, VDLE, VRES, KEB) 

C TO ASSEMBLE GLOBAL MATRIX KG (CEMENT FUNCTION TYPE 3) 

C TAKING INTO ACCOUNT OF PRESCRIBED NON ZERO D.O.F. 

C '/ERSION : MATRIX KG STORED BLOCKWISE ON FILE M4 

IMPLICIT REAL*8(A-H,0-Z) 

CCMMON/COND/NCLT, ?CLZ, NCLNZ 
CCMMON/ELEM/NELT, NNEL, NTPE, NGRE, ME, NIDENT, MNULL 
CCMMQN/ASSE/NSYM, MFILLR (3) 

COMMON/RESO/NEQ, NFILLR (2) 

C0MM0N/R8DT/IEL, ITPE, ITPEl, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDEG, IPS 
1 ,IC0D,NULL(3) 

COMMON/LIND/fLBL, NBLM, MKGl, MKG2 
COMMON/ES/M, MR, MP, Ml , M2, M3, M4, M5, MDUMMY (5) 

DIi€NSION KLD(*),VDIMP(t),KLOCE(»),VCORE(*),VPRNE(*),VPREE(*), 

1 KNE(») , VKE(*) , VFE (*) , VKGS(») , VKGD (♦) , VKGI (*) , VFG (*) , VDLE(*) , 

1 VRES(*),KEB(*) 

DATA ZERO/O.DO/ 

C 

C REWIND FILE M4 

REWIND MA 

C LOOP OVER THE BLOCKS 

DO 80 IB=i,NBLM 

C INITIALIZE THE BLXK 

DO 10 I=1,NLBL 
IF(NSYM.EQ.l) VKGI(I)=ZERO 
10 VKGS(I)=ZERO 
IE1=KEB(IB) 

IE2=KEB(IB+1)-1 

C REWIND ELEMENT FILE (M2) 

RE4IND M2 

C LOOP OVER THE ELEMENTS ASKD 3A 

DO 70 IE=1,NELT 

C READ AN ELEMENT 

CALL RDELEM (M2, KLOCE, 'mE,VPRNE, VPREE, KNE) 

C CHECK IF BLOCK IS AFFECTED BY THIS ELEMENT 

DO 20 ID=1, IDLE 
J=KLOCE(ID) 

IF(J.LT.IE1.0R.J.GT.IE2) 80 TO 20 
GO TO AO 
20 CONTINUE 

30 IF(IB.NE.1.0R. (NCLNZ.EQ.O.AND.IB.EQ.D) GO TO 70 

C EVALUATE INTERPOLATION FUNCTIONS IF REQUIRED 

AO IF(ITPE.EQ.ITPE1) GO TO 50 

IC0D=2 

CALL ELEMLB (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

C FORM ELEMENT MATRIX 

50 IC0D=3 
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CALL ELEMLB ( VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

C PRINT aEMENT MATRIX 

IF(>!.LT.2) GO TO 60 
IF(NSYM.EQ.O) IKE=IDLE*(IDL£+l)/2 
!F(NSYM.EQ.l) IKE=IDLE*IDL£ 

WRITE (MP, 2000) lEL, (VKE(I), 1=1, IKE) 

2000 FORMAT!/’ MATRIX (KE) , ELEMENT:’, 15/ (10X,10E12. 5)) 

C MODIFY FG FOR THE PRESCRIBED NON ZERO D.O.F. 

60 IF (NCLNZ. NE. 0. AND. IB. £Q. 1 ) CALL MODFG ( IDLE, NSYM, KLOCE, VDIMP, VKE, 
1 VFG) 

C ASSEMBLE 

CALL ASSELD ( 1 , 0, IDLE, NSYM, lEl , IE2, KLOCE, KLD, VKE, VFE, VKGS, VKGD, 

1 VKGI,VFG) 

ITPE1=ITPE 
70 CONTINLIE 

C END OF A BLOCK 

WRITE(M4) (VKGS(I),I=1,NLBL) 

IF(NSYM.EQ.l) WRITE (M4) (VKGKI), I=I,IOL) 

IF(M.LT.2) GO TO 80 

WRITE (MP, 2010) IB, (VKGS(I),I=1,NLBL) 

2010 FORMAT!’ UPPER TRIANGLE BLOCK OF !KG) NO;’ , I5/!1X, 10E12.5) ) 
IF!NSYM.EQ.l) WRITE !MP, 2020) IB, !VKGI!I), I=1,NLBL) 

2020 FORMAT!’ LOWER TRIANGLE BLOCK OF !KG) NO:’ , I5/!1X, 10E12.5) ) 

80 CONTINUE 

IF!M.SE.2) WRITE !MP, 2030) !VKSD!I), I=1,NEQ) 

2030 FORMAT!’ DIAGONAL OF !KG)’ /!1X, 10E12.5) ) 

RETURN 

END 



ASKD 61 
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c=^ 

c 

c 

L> 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c== 



SUBROUTi\'E QSSElD( IK0. 1-3, ID^E. VSYM, IE!. IE2, XlGCE, VXE, V-E, 
1 VK8S,VK6D,V(<GI,V?G) 



TO ASSEMBLE ELEMENT MATRIX (SYMMETRIC OR NOT) AND/OR VECTOR. 
’HE MATRIX IS STORED BwCCKWISE C-\' DISK 
INOUT 

IKG IF IKG.E0.1 ASSE:TBLE E-EMENT WRIX KE 

I-G IF IFG.E3.i ASSEMBLE ELEMENT VECTOR FE 

IDLE NUMBER OF D.C.F. OF ’HE ELEMEN* 

N3YM 0=3YMMETRIC PROBLEM, l=NON SYMMETRIC PROBLEM 
IE1.IE2 -IRST AND LAST COLUMN OF KG TO BE ASSEMB.EB 
KLOCE ELEMENT LOCALIZATION VECTOR 

kld cumulative column heights in kg 

VKE element matrix KE (FULL OR UPPER TRIANGLE BY 
DESCENDING COLUMN'S) 

VFE ELEMENT VECTOR FE 

CUTOUT 

VKGS,VKGD,VKGI GLOBAL MATRIX (SKYLINE) 

(SYMMETRIC OR NOT) 

V-G GLOBAL LOAD VECTOR 



IMPLICIT REAL*8(A-H,0-Z) 

DIMENSION KLOCE (i) , KLD(*) , VKE (*) , V-E W . VKGS (♦) , VKGD (♦) , 
1 VK3I(*),VFS(*) 

Q 

c 

r assemble ELEMEImT matrix 

c 

IF(IKG.NE.l) 80 TO !00 
I0BL0C=KLD(IE1)-1 

ie5c=:dle 

IE0!=1 

C FOR EACH COLUMN OF KE 

DO 90 JD=i, IDLE 
I-(N3YM.NE.l) IEGO=JD 
JL=HLXE(JD) 

IF(JL) 90,90,10 
10 IO=KLD(JL+1)-IOBLOC 
iE5=IE31 
IQ=1 

:-(JL.LT.IE1.0R.JL.GLIE2) GO TG 90 

C FOR EACH ROW OF KE 

DO 80 ID=1, IDLE 
IL=KLOCE(!D) 

IF(NSYM.EQ.l) GO TO 30 





IF(ID-JD) 30,20,20 


£0 


IQ=ID 


30 


IF (ID 80,80,40 




LWL-IL 




IF(IJ) 80,50,60 
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C DIAGQW. TSR'*S I'i 'lu 

50 VK6D (ID =VKGD ( ID +VKE ( lEQ) 

50 "^0 30 

C Jo:»£S T=?IQN6'_£ IN v3 

60 i=io-:j 

\/K53(I)=VKGS(I)+VK£(I£2) 
IF(NSYM.NE.l) GO TO 80 

C LOwER TRIANGLE TERMS IN KG 

IEiiI=(ID-i)*IDLE+JD 

VKGI(I)=VKGI(I)+VKE(IEai) 

BO IEQ=IEG'+IQ 

90 I£Q1=IE01+I£Q0 

U 

C ASSEMBLE ELEMENT VECTOR 

n 

u 

100 IF(IFG.NE.l) so TO 130 
DC 120 ID=1,IDLE 
IL=KLQC£(ID) 

IF(IL) 120,120,110 
110 VFG(IL)=VF‘3aD+VFE(ID) 

120 CONTINUE 

130 RETURN 

END 
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Si.’BROUTIN£ SOLD ('/KGS, VKSD, VKSI, V?S. 
1 ,KEB,KPB) 



KLD, KEQ, ‘’'P, 



I~3C, ISCL, En££'5 





li 

II 

ii 

ii 

1 

1 

1 

1 

1 

1 

1 

1 

il 

1 

1 

1 

1 

1 

1 

1 

1 


M 

II 

It 

II 

It 

II 

11 

II 

It 

II 

II 

II 

II 

II 

II 

II 

n 

1! 

ii 

II 

II 

II 

11 

II 

II 

II 

II 

II 

II 

11 

II 

tl 

II 

II 

1! 


C 


TO SOLVE A LINEAR SYS 


TEH (SYMMETRICAL OR NOT). 


u 


THE MATRIX IS STORED 


ON FILE M4 BY 3K’/;.IN£S. 


C 


AFTER TRIANGULARIZATION IT IS STORED ON FILE M5 


r 


iNTPuT 




C 


VKaS,VKGD,VK6I 


SYSTEM MATRIX ; UPPER, DIAGONAL AND LOWER 


r 

u 




PARTS 


n 


VFS 


SECOND MEMBER 


r 

w 


KLD 


ADDRESSES OF COLUMN TCP TERMS ' 


u 


NEQ 


NUMBER OF EQUATIONS 


r 


MP 


OUTPUT DEVICE NUMBER 




IFAC 


F IFAC.EQ.1 TRIANGULARIZATION- CF 


c 




THE MATRIX 




iSOL 


IF ISOL. £Q. 1 COMPUTE SOLUTION FROM THE 


c 




TRIANGULARIZED MATRIX 


c 


NSYM 


INDEX FOR NON SYMMETRIC PROBLEM 


c 


KEB 


NUMBER OF FIRST EQUATION IN EACH 


r 

w 




BLOCK 


C 


KPB 


NUMBER OF FIRST BLOCK CONNECTED TO EACH- 


P 

w 




BLOCK 


n 

u 


OUTPUT 




c 


VK6S,VKGD,VKG1 


TRIANGULARIZED MATRIX (IF IFAC.EQ.1) 


C 


VFG 


SOLUTION (IF IS0L.EQ.1) 


C 


ENERS 


SYSTEM ENERGY (IF NSYM.EQ.O) 



D 



Ii'(PLICIT REfiL*8 (fi-H,0-Z) 

CO«,mVLIND/NLBL, NBL«, NDUMMY (2) 

COMMON/SS/?!, MR, MPl , «1 , M2, M3, M4, M5, MDUMHY (5) 

DIMENSIO^^ VKGSU),VXGD(*),VKei(*),VFG(*),KLD(*),KEB(*),HPB(*) 
DATA ZERO/O.ODO/ 



HEyiND M4 
(EyiXD M5 
IK=1 

:F(VK6B(l).£Q.ZERa) GO TO 30 
ENERG=ZERQ 

r 

u 

C FOR EACH BLOCK TO BE TRIANGULAR! ZED 



j:MIN=;SLB_+i 
J:;tAX=rT.BL+NLSL 
DC :05 IB=:,NBLM 

C FEPD A BLCCK TO BE TRIANGULARIZED 

RSAD(MAi ;vK3£SI),I=l,NwBL) 

IF(NSYm.E:.1) REAB(M4) (VKGKI),I=1,NLBL) 
C PARArATERS -IR S.ECK IB 

iko=ke3(:b) 

iki=kebcB’1)-: 
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IBO=KPB(IB) 

J0=KLD(r<0)-l 
IFCB0.E2.IB) SO TO 11 
C BACKSPACE Q\ CONNECTED BLOCKS 

DO 10 1=1,11 
BACKSPACE K5 

IF(NSYM.£Q.l) BACKSPACE >:5 

10 CONTINUE 

C FOR EACH CONNECTED B.jCK (INCLLDING BlCCK IB 

11 DO 103 IBC=!BO, IB 
IF(IBC.EQ.IB) S3 TO 12 
READ(M5) (VKGS(I), ^JiyiNjJlYAX) 

IF(NSYN.EQ.l) SEADi.’KS) (VKSIC), JI.’IAX) 

C PARAMETERS CF CONNECTED BLOCK 

12 IIO=KEB(IBC) 

II1=KEB(IBC+1)-1 

JC0=KLD(II0)-1 

IF ( IBC. NE. IB) JCO=JCO-NLEL 
C 

C FOR EACH COLuHN OF SLOCK IB TO BE .KCDI-IED 

C 

DO 100 IK=IKO, IKl 
JKK=KLD(IK)-JO 

C ADDRESS OF NEXT COLUMN TO? TERM IK+l 

JHKi=KLD(IK+l)-JO 

C HEIGHT OF COLUMN IK (INCLUDE U^PER AND DIAGONA. 

LHK=JHK1-JHK 

LHK1=LHK-1 

C ROW OF FIRST TERM TO BE MODIFIED IN COLUMN IK 

I«IN=IK-LHK1 

•IMIN1=IMIN-1 

C ROy OF LAST TERM TO BE MODIFIED IN COLUMN IK 

IMAX=IK-1 

IF(LHKl.LT.O) SC TO 100 
IF(IFAC.NE.l) GO TO 50 
IF(NSYM.EQ.O) 3D TO 14 
IB1=IB 

IF(IMINl.LT.IKO) IB1=IB0 

IF (IBC. E!2. 131 ) VK3I ( JHK) =VKGI (JKK) /VKSD (IMINi ) 

14 IF(IBC.EQ.IB.AND.IK.E(3.IK0) 30 TO 40 
IF(LHKl.EQ.O) GO TO 40 

C FIND FIRST AND LAST RCW OF COLUMN IK AFFECTED 

C BY CONNECTED BLOCK IBC 

IMINC=MAXO(IMIN,IIO) 

I«AXC=mNO(IMAX,IIl) 

IF(IMINC.GT.IMAXC) 60 TO 40 
C 

C MODIFY NON DIAGONAL TERMS OF CCLL'MN IK 

C 



JCK=JHK+IMINC-IiMINl 
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JHJ=KLD(IMINC)-JCO 

C FOR £.qCH TERM "0 3E MODI-IED, lDCHTED :■>: 

DO 30 IJ=I!>!INC, IMflXC 
JHJ1=KLD(IJ+1)-JC0 

C NUMBER OF MODIFICflTIVE TEivl'S OF COSFFICIEN" l3CATI2 AT JCK 

IC=«IN0(JCK-JHK,JHJ1-JHJ) 

IF(iC.LE.O.flND.NSYM.EQ.O) SO TO 20 
C1=ZER0 

!F(IC.LE.O) GO TO 17 

J1=JHJ1-IC 

J2=JCK-IC 

IF<NSYM.EQ.l) GO TO 15 

VKGS<JCK)=VKSS{JCK)-3CAL(VKGS<J1) , V'KBS(J2) , IC) 

GO TO 20 

15 VKGS(JCK)=VKSS{JCK)-SCfiL(VKGI(jl),V^aS(J2), IC) 
Cl=SCflL<VKGS(Jl),VKGI(J2), IC) 

17 VKGI ( JCK) = (VKSI ( JCK) -Cl ) /VKSD ( i J) 

20 JCK=JCK+1 

30 JHJ=JHJi 

C 

C MODIFY DIAGONAL TERM 

C 

40 IF(IBC.NE.IB) GO TO 90 

JCK=JHK 
CDIAS=ZERO 
DO 70 IJ=IMIN1,IMAX 
C1=VKGS(JCK) 

IF(NSYM.E5.1) GO TO 50 
C2=C1/VKSD(IJ) 

VKGS(JCX)=C2 
GO TO 60 

50 C2=VKGI (JCK) 

60 CDIAG=CDIAB+CUC£ 

70 JCK=JCK+1 

VKGD{IK)=VKGDaK)-CD!AG 
IFlVKGDdK)) 50,80,90 
80 WRITE (MP, 2000) IX 

2000 FORMAT!’ *♦* ERROR, ZERO PIVOT EOUATIGN ’,15) 

STOP 

C 

C SOLVE LOWER TRIANGULAR SYSTEM 

C 

90 IF(ISOL.NE.l) GO TO 100 
IF(IBC.NE.IB) GO TO 100 

IF (NSYM. NE. 1 ) VFG(IK)=VFG ( IK) -SCAl ( 0X85 (J-X) , VFG( IMINl ) , _HK) 
IF (NSYM. EQ. 1 ) VFG ( IK) =VFG( IK) -SCAL (VKGI ( J-K) , V-b { I^INl ) , LHK) 
100 CONTINUE 

C NEXT CONNECTED BLOCK 

103 CONTINUE 

C END OF ELIMINATION OF THIS BLOCK 

IF(IB.EQ.NBLM) SO TO 105 
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WRIT£(i'»15) (VKGSC), 1=1, MB.) 

IF(NSYM.EQ.l) k’RITE(M5) (VKSI (I), :=1,NL3L) 
105 CONTINliE 

IF(ISOL.NE.l) RETURN 
C 

C SOLVE DIfiGONflL SYSTEM 

C 

IF(NSY«.EQ.l) GO TO lE'O 
DO 110 IK=1,N£0 
C1=VKGD(IK) 

C2=VFG(IK)/C1 

VFGa:0=C2 

110 ENE.RG=ENER3+CHfC2*C£ 

C 

C SOLVE UPPER TRIflNGULflR SYSTEiM 

C 

120 IB=NBLM 

IK0=KEB(IB)-1 

J0=KLD(IK0+1)-1 

IK=NEQ+1 

jHKl=KLDaK)-JO 

C FOR EVERY EQUATION ^^ROM NEO ^0 1 

130 IK=IK-1 

C READ A BLOCK IF REQUIRED 

IFaK.NE.IKO) 30 TO 135 
BACKSPACE «5 

IF(NSYW.£G.l) BACKSPACE «5 
R£AD(M5) (VKGSC), 1=1, N-BL) 

IF(NSYM.EQ.l) READ(M5) (VKGI (I), I=1,NLB1) 
BACKSPACE K5 

IF(NSY«.EQ.l} BACKSPACE «5 

IB=IB-1 

IK0=KEB(IB)-1 

J0=KLD(IK0+1)-1 

JHK1=KLD(IK+1)-J0 

C MODIFY THE UNKNOi^N VECTOR 

135 IF(NSYM.£Q,1) VFG(IK)=VFG(IK)/VKSDCK) 
IF(IK.EQ.l) RETURN 
C1=VFG(IK) 

JHK=KLD(IK)-J0 

JBK=JHK1-1 

IF(J)«.GT.JBK)GO TO 150 
IJ=IK-JBX+JKK-1 
DO lAO JCK=JHK,JBK 
VFG ( IJ) =VFG ( IJ) -VKG3 ( JCK) *C1 
140 IJ=IJ+1 
150 JHK1=JHK 
SO TO 130 
END 
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SUBRCUTLNE BLN.IN 



C TO CfiLL BLOCK ’NLIN’ 

C TO SOLVE a STEADY NON -INEflH PHCB^K 

IMPLICIT REflL*8(fl-H,0-Z) 

CHflRflCTER*4 TBL 

COHiaN/EL£M/NULL (4) , ME, MNULL (2) 

COMMON/flSSE/NSYM, NKG, NKE, NDLE 
COMMON/RESO/NEQ, krILLR(2) 

' COMMON/NLIN/tPSDL, XNORM, CMEGfl, XPfiS, D?aS, DPPSO, NPfiS, IPPS, NI’ER, 
1 ITER, IMETH 

COMMON/ES/M, MR, MP, Ml, M2, M3, M4, MDUMMY (5) 

COMMON/LOC/LCORG, LDLNC, LNES, LDIMP, -.PRNG, LPREG, U.D, LLOCE, LCCRE, 

1 LPRNE, LPREE, LOLE, LKE, LFS, 'LKGb, _KGi;, LK3I, ■_? j, L?.£S, _DL'j, LM£, 

2 LDUMWY(3) 

COMMON Vfl(l) 

DIMENSION TBL(10),IN(2),XIN(5) 

C+++ THIS IS COMMENTED OUT BECAUSE OF AN MS FORTRAN’ COMPILER 

C+-H- BUG WHICH WILL NOT INITIALIZE $LARSE ARRAYS. THIS ARRAY 

C+++ IS NOW INITIALIZED BY A CALL A DUMMY S’dBRQiJTIivS 
C+++ INITBL WHICH EXISTS SOLELY TO INITIALIZE THIS ARRAY 



I 



C 

C DATA TBL/’ ’KGS ’,’KGD ’,’KGI ’,’FG ’,’’KE ’,’FE ’,’RES ’,’D.£ ', 
C * ’DLG’,’ME ’/ 

C 

C HERE IS THE CALL TO SET AROUND THE COMPI.ER BUG 

CALL INITBL (TBL, ’NLIN’) 

C 

C+++ ALL OF THIS IS TO GET AROUND THE MICROSOFT 
C+++ COMPILER BUG 
C 

C 



IF(Ml.EQ.O) M1=«R 
IF(M2.EQ.O) M2=M£ 

WRITE (MP, 2000) M 

2000 FORMAT (//’ NON LINEAR SOLUTION (M=’ , 12, ’ )’ /1X,23(’=’ ) ) 
C TO ALLOCATE SPACE 



IF(LKGS.EQ.l) CALL £SPACE(NKG, 1,TBL(1),LKG3) 

IF(LKGD.EQ.l) CALL ESPACE(NED, 1,TBL(2),LKGD) 
IF(NSYM.EQ.l.AND.U<GI.£Q.l) CALL E5PAC£(NK3, 1,TBL(3),LKGI) 
IF(LFG.EQ.l) CALL ESPACE (NEQ, 1,^L(4) ,LFG) 

IF (LKE. EQ. 1) CALL ESPACE(NK£, 1, tBL(5) ,LKE) 

IF(LFE.E(2.1) CALL ESPACE (NDLE, 1, TBL (5), LFE) 

IF (LRES. E(3. 1 ) CALL ESPACE (NEQ, 1 , TBL (7) , LRES) 

IF(LDLE.EQ.l) CALL ESPACE(NDL£, I ,TBL(8) ,LDL£) 

IF (LDL0. EQ. 1 ) CALL ESPACE (NE13, 1 , TBL (9) , LDLS) 

IF (LME. EQ. 1 ) CALL ESPACE (NKE, 1 , TBl ( 10) , LME) 

C TO EXECUTE THE BLOCK 



CALL EXNLIN (VA (LCORG) , VA (LDLNC) , VA (LDIMP) , VP C..NE3) , V'A C.LD) , 
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1 VR (LLOCE) , VR (LCD, RE) , VR (LOR^'E) , VR (L-'CEE) , VR LNE) , VR '‘L^E} , VP (LME) , 

2 VR (LFE) , VR (LDIE) , VR (LKSS) , VR (LH3D) , VR r_K5I ) , VR (L'3) , V= r.RES i , 

3 VR(LDLG)) 

RETURN 

END 



* m 
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$LAR6E 

$NOFLOflTCflLLS 

SUBROUTINE EXNLIN ( VCORG, KDLC, VDIMP, KNEQ, KLD, KLCCE, VCORE, V?T\E, 

1 VPREE, KNE, VKE, VKE, VFE, VDLE, VKBS, VKGD, VKGI, VFG, VRES, VDLG) 

C TO EXECUTE BLOCK ’NLIN’ 

C TO SOLVE ft STEADY N'QN LINEAR PROBLEM 

IMPLICIT REflL*8(fl-H,0-Z) 

COM3N/RESO/NEQ, NFILLR (2) 

CQMMON/COND/NCLT, NCLZ , NCLNZ 
CO«I^N/flSSE/NSYM, KFILLR(3) 

CO^WON/NLIN/EPSDL, XNORM, OMEGA, XPflS, D?A3, DPASO, NPflS, I?AS, NITER, 

1 ITER, IMETH 

COMMON/ES/M, MR, MP, Ml , M2, M3, MA, MBUMMY !6) 

DIMENSION VCORG(*) , KDLNC(*) , VDIM?(») , K?€Q(*) , KLD (*) , KLOCE (*) , 

1 VCORE(*),VPRNE(*),VPRE£(*),'<NE(*),VKE(*),VME(*),VFE(*),VDLE(^), 

2 VKGS(*),VKGD(*),VKGI(*),VFG(*),VRES(*),VDLS(*} 

DATA ZERO/O.DO/ 

C 

DPftSO=ZERO 

XPftS=ZERO 

IPftS=0 

C READY INITIAL D.O.F. ON FILE M3 

IF(M3.EQ.O) GO TO 10 
REWIND M3 

READ (M3) (VDLS(I),I=1,NEQ) 

C READ A CARD DEFINING A SET OF IDENTICAL STEPS 

10 READ(M1,1000) DPAS, II, 12, 13,X1,X2 

1000 FORMAT(F10.0,3I5,2F10.0) 

IF(DPflS.EQ.ZERO) GO TO lAO 
IF(Il.GT.O) NPfiS=Il 
IF(I2.GT.O) NITER=i2 
IF(I3.8T.O) IMETH=I3 
IF (XI. GT. ZERO) E?SDL=X1 
IF(X2.GT.ZER0) (jMEGfl=X2 
C 

C LOOP OVER filL STEPS 

C 

DO 130 IP=l,NPftS 

IPftS=IPftS+l 

XPAS=XPflS+DPflS 

WRITE (MP, 2000) IPftS, DPAS, XPftS, NITER, IMETH, EPSDL, OMEGA 
2000 F0R«AT(/1X,13(’-’), ’STEP NUMBER (IPAS) , 15/7 
1 lAX, ’ INCREMEIT 



(DPA3)=’,E12.5/ 



2 


lAX,’ TOTAL LEVE^ 


(XPP3)=SE:2.5/ 


3 


lAX,’ NUMBER OF ITERATI3NS 


(NrER)=’,:i2/ 


A 


lAX,’ METHOD NUMBER 


(IMET!-::’,::2/ 


5 


1 AX, ’TOLERANCE 


(EPSDi.)=’,El2.5/ 


S 


lAXj’OVER RELAXATION ^ACTOR 


(0''^E3A)=’,E:2.5/ 



c 

C LOOP OVER EQUILIBRIUM ITERATIONS 

C 

DO 110 ITER=1, NITER 

C CHOOSE THE METHOD 

IF(II€TH.8L3) GO TO 20 
C NEWTON TYPE METHODS 

CALL NEWTON (VCORS, KDLNC, VDIMP, KNEQ, KLD, KLOCE, VCORE, VPRNE, V=REE, 
1 KNE, VKE, VME, VFE, VDLE, VKGS, VKGD, VKGI, VF6, VRES, VDLS) 

GO TO 100 

C OTHER METHODS 

20 CONTINUE 

WRITE (MP, 2010) IMETH 

2010 FORMAT!’ ERROR, METHOD;’ , IS, ’ UNKNOWN’) 

STOP 

C COMPUTE THE NORM 

100 CALL NORME(NEQ, VRES, VDLG, XNORM) 

IF(M.GT.O) WRITE (MP, 2020) ITER, XNORM 
2020 F0RMAT(5X,’ ITERATION (ITER) , 13, ’ NORM (XN0RM)=’,E12.5) 
IF(M.GE.2) CALL PRSOL (KDLNC, VCORS, VDImP, KNEQ, VDLG) 

IF (XNORM. LE.EPSDL) BO TO 120 
110 CONTINUE 
ITER=NITER 

C END OF STEP 

120 DPASO=DPAS 

WRITE (MP, 2030) ITER, NITER 

2030 F0RMAT(/10X,IA,’ PERFORMED ITERATIONS OVER’, lA/) 

IF(M.LT.2) CALL PRSOL (KDLNC, VCORG,VDIMP, KNEQ, VDLG) 

130 CONTINUE 
GO TO 10 

C SAVE THE SOLUTION ON FILE MA 

lAO IF(MA.NE.O) WRITE(MA) (VDLG(I), I=1,NEC) 

RETURN 

END 
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SL’BSOUTINc N£WTON( vCOSG, KDLNC, VDI K\II, K.D 
1 VPREE, KNE, VKE, WE, Vf E, VDLE, V'KGS, VK6D, VHSI , 



, .-(lCCE, VCG^.w, 
VF3. VRES, VBLS) 



) 



C flLGORITKM FOR fJEWTON-RfiPHSCN TYPE METHODS 
C IMETH.EQ.1 COMPUTE K AT EfiCH ITERATION' 

C IWETH.EQ.2 K IS CONSTANT 
C IMETH.EB.3 RECOMPUTE K AT THE BEGINNING Q'^ EACH 




IMPLICIT REAL*8(A-H,0-Z) 

COMMQN/ASSE/NSYM, NKS, MFILLR (2) 

COI^ON/RESQ/NEQ, NFILLR(2) 

COMMON/NLIN/EPSDL, XNORM, OMEGA, XPAS, DPAS, DPASO, NPAS, IPAS, NITER, 

1 ITER, IMETH 

COMMON/ES/M, MR, MP, MDUMMY(IO) 

DIICNSION VC0R6 (♦) , KDLNC (*) , VDIMP(*) , KNE5 (*) , Kl.D (*) , KLCCE (») , 

1 VCORE (*) , VPRNE (*) , VPREE (*) , KNE (*) , VKE (*) , VME {*) , VFE (*) , VDLE (*) , 

2 VKGS (*) , VKGD (*) , VKGI !*) , VFB (*) , VRES ( «) , VDL3 ( *) 

DATA ZERO/O.DO/,UN/l.DO/ 

C 

C DECIDE IF GLOBAL MATRIX IS TO REASSEMBLED 



IKT=0 

IF (IMETH.EQ.1) GO TO 10 
IF(IPAS.E0.1.AND.ITER.EQ.l) GO TO 10 
IF(IICrH.EQ.3.AND.ITER.EQ.l) GO TO 10 
GO TO 20 



10 IKT=1 

C INITIALIZE GLOBAL MATRIX TO ZERO IF IT IS TO BE ASSEMBLED 

20 IF(IKT.EQ.O)GO TO 30 

CALL INIT( ZERO, NKB, VKGS) 

CALL INIT(ZERO, NED, VKGD) 

IF(NSYM.ED.l) CALL INIT (ZERO, NKG, VKGD 

C STORE LOADS IN THE RESIDUAL VECTOR 

30 CALL MAJ ( XPAS, ZERO, NEQ, VFG, VRES) 

C ASSEMBLE RESIDUAL VECTOR, AND EVENTUALLY THE GLOBAL MATRIX 

CALL ASNEWT ( IKT, KLD, VDIMP, KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, 
1 VKGS, VKGD, VKGI,VDLG, VDLE, VRES) 

C SOLVE 

CALL SOL (VKGS, VKGD, VKGI, VRES, KLD, NEQ, MP, IKT, 1, .\SY’^, ENER-3) 

IF ( IKT. EQ. 1. AND. M. GT. 1 ) CALL PRPVTS (VKGD) 

C UPDATE THE SOLUTION 

CAa MAJ (OMEGA, L-N, NEQ, VRES, VDLG) 

RETURN 

END 
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SUBROJTIf£ flSNEWT ( IKT, KID, <LOCH, VZORE, VPRNE, V-^REE, 
1 KNE, VKE, VFE, VKGS, VKGD, VKGI, V-G. VDLE, VRE3) 






C TO ASSEMBLE THE RESIDUALS AND GLOBAL MATRIX (IF IKT.EG.l) 

C WHILE LOOPING OVER THE ELEMENTS ASNE 

C (FOR THE NEWTON-RAPHSON METHOD) 

IMPLICIT REAL*8(A-H,0-Z) 

COMKON/S^M/NELT, NNEL, NTPE, NGRE, ME, NIDENT, MNULL 
COMMON/ASSE/NSYK, MFILLR (3) 

COmON/RESO/NEQ, NFILLR(2) 

COMMON/RSDT/IEL, ITPE, ITPEl, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDES, I-G 
1 ,ICOD,NULL(3) 

COMHON/ES/M, MR, M?, Ml , M2, MDUMMY (8) 

DIMENSION KLD(*) , VDIMP(») , KLOCE(*) , VCQRE(*) , VPRNE (*) , VPREE(») , 

1 KNE (») , VKE (♦) , VFE (*) , VKGS (*) , VK3D (♦) , VKGI ( *) , v.=3 ■ *) , VDLE (♦) , 

2 VRES(*) 



C- 

C- 



— REWIND ELEMENT FILE M2 
REWIND M2 

C LOOP OVER THE ELEMENTS 

DO 40 I£=l,NELT 
C READ AN aEMENT 
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CALL RDELEM (M2, KLOCE, VCORE, VPRNE, VPREE, KNE) 

C EVALUATE INTERPOLATION FUNCTIONS IF REQUIRED 

IF(ITPE.EQ. ITPEl) GO TO 10 
IC0D=2 

CALL ElEMLB (VCORE, VPR^E, VPREE, VDLE, VXE, VFE) 

C FIND THE D.O.F. OF THE ELEMENT FROM VFG 

10 CALL DLELM(KLOCE, VFG, VDIMP, VDLE) 

C CALCULATE ELEMENT RESIDUALS AND CHA?Ji3E THEIR SIGN 

IC0D=6 

CALL ELEMLB (VCORE, VORNE, VPREE, VDLE, VKE, VFE) 

DO 20 1=1, IDLE 
20 VFE(I)=-VFE(I) 

C EVALUATE GLOBAL MATRIX 

IF(IKT.EQ.O) GO TO 30 
IC0D=4 



CALL ELEMLB(VCGRE, VPRNE, VPREE, VDLE, VKE, WZ) 

C ASSEMBLE THE RESIDUALS AND THE GLOBAL MATRIX 

30 CALL ASSEL (IKT, 1, IDLE, NSYM, KLOCE, KLD, VKE, V'E, VKGS, VKGD, VKGI , VRES) 
40 ITPE1=ITPE 
RETURN 
END 
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SL'BRiDUTIN'E INIT(X,N,V) 



C INITIALIZE VECTOR V TO 'VALUE X 

IMPLICIT REAL*B(A-H,0-Z) 
DII€NSION V(*) 

C 

DO 10 M,N 
10 V(I)=X 

RETURN 
END 



SUBROUTINE MAJ(X1, X2,N, V1,V£) 
C===================================: 

C EXECUTE THE VECTOR OPERATION: V2=X1»V1 + X2*V2 

C X1,X2;SCALARS Vi,V2:VECT0RS 

C============================= 

IMPLICIT REALMS (A-H,0-Z) 

DII€NSION V1(*),V2(*) 

C 

DO 10 1=1, N 

10 V2(I)=X1*V1(I)+X2*V2(I) 

RETURN 

END 



SUBROUTINE NORME (N, VDEL, V, XNORM) 

C COMPUTE THE LENGTHS RATIO OF VECTORS VDEL AND V 
C========================================: 

IMPLICIT REAL*8(A-H,G-Z) 

DIMENSION VDEL(*),V(*) 

DATA ZERO/0. DO/, UN/1. DO/, FAC/1. D-3/ 
SQRT(X)=DSQRT(X) 

C 

C1=ZERQ 

C2=ZER0 

DO 10 1=1, N 

C1=C1+VDEL(I)*VDEL(I) 

10 C2=C2+V(I)*V(I) 

C=C1»F.AC 

IF(C2.LE.C) C2=UN 
XN0RM=SQRT(C1/C2) 

RETURN 

END 
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SUBROUTINE BLTE^P 



C TO CfU BLOCK ‘TEMP’ 

C • TO SOLVE AN UNSTEADY PRGBlEN (.INEAR OS NOT) 

IMPLICIT REAL*8(A-H,0-Z) 

CHARACTER*h TBL 

COMMON/aEM/NULL (4) , ME, MNULL (2) 

COMMON/ASSE/NSYM, NKG, NXE, NDLE 
COWlON/SESO/NEQ, NFILLR (2) 

COmON/NLIN/EPSDL, XNORM, OMEGA, XPAS, D?AS, DPASO, NPAS, IPAS, NITER, 

1 ITER, IMETH 

COMMON/ES/M, MR, MP, Ml, M2, M2, MA, MDUMMY (S) 

COMMON/LOC/LCORG, LDLNC, LNE5, LDIM3, LP.RNG, LPREG, LLD, LLOCE, LCORE, LNE, 
1 LPRNE, LPREE, LDi_£, LKE, L=E, LKGS, LKGD, LKGI , LFe’ LRES, LDLB, LME, 

1 LDLEO,LDLGO,LFGO 
COMMON VA(1) 

DIMENSION TBL(13),IN(2),XIN(3) 

C+++ THIS IS COMMENTED OUT BECAUSE OF AN MS FORTRAN CCMPILER 

C+++ BUG WHICH WILL NOT INITIALIZE $LARG£ ARRAYS. THIS ARRAY 

C+++ IS NOW INITIALIZED BY A CALL TO A DUMMY aiBROuTINE 
C+++ INITBL WHICH EXISTS SOLELY TO INITIALIZE THIS ARRAY 
C 

C DATA TBL/» KGS »,»KGO »,»KGI »,»FG ’,»K£ »,»FE »,»R£S », 

C ♦ »DLE »,»DLG »,»ME »,»DLEO»,»DLGO»,»FGO »/ 

C 

C HERE IS THE CAa TO GET AROUND THE COMPILER BUS 

CALL INITBL(TBL,»TEMP») 

C 

C+++ ALL OF THIS IS TO GET ARffiJND THE MICROSOFT 
C+++ COMPILER BUG 
C 

C 

IF(Ml.EQ.O) M1=MR 
IF (M2. £0.0) M2=M£ 

WRITE (MP, 2000) M 

2000 FORMAT(//» UNSTEADY SOLUTION (M=* , 12, ’ )• /1X,23(’=’ )) 

C TO ALLOCATE SPACE 

IF (LKGS. EQ. 1 ) CALL ESPACE (NKG, 1 , TBL ( 1 ) , LKGS) 

IF (LKGD. EQ. 1 ) CALL ESPACE (NEQ, 1, TBL (2) , LKGD) 
IF(NSYM.EQ.l.AND.LKGI.£Q.l) CALL £SPACE(NKG, 1,TBL(3),LKGI) 
IF(LFG.EQ.l) CALL ESPACE (NEQ, 1,TBL(4),L-G) 

IF (LKE. EQ. 1 ) CALL ESPACE (NK£, 1 , TBL (5) , _KE) 

IF(LFE.EQ.l) CALL ESPACE (NDLE, 1, TBL !6), J") 

IF(LRES.EQ.l) CALL ESPACE (NEQ, 1, TBL (7), L.RES) 

IF(LDLE.EQ.l) CALL ESPAC£(NDLE, 1,TBL(B),LDLE) 

IF(LDLS.EQ.l) CALL ESPACE (NEQ, 1, TBL ( 9), LDLG) 

IF(LME.EQ.l) CALL ESPACE (NKE, 1, TBL (10), LME) 

IF (LDLEO. EQ. 1 ) CALL ESPACE (NDLE, 1 , TB. ( 1 1 ) , uDLEO) 

IF(LDLGO.EQ.l) CALL ESPACE (NEQ, i, TBL (12), LDLGO) 
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IF(LF60.£Q.l) CALL ££?flC£(MEG,l,TBL(13),.-50) 

C TO EXECUTE THE BLOCK 

CALL £XTE«P(VA (LCQRG) , VA(LDLNC) , VA (LDi:^2) , VA (LNE3) , VA (LLD) , 

1 VA(LLOCE) , VA (LCORE) , VA (LPRN€) , VA (LPREE) , VA (LNE) , VA iL^E) , V‘2 (LrE) , 
£ VA (LFE) , VA (IDLE) , VA (LXGS) , VA (LKGD) , VA (LK3I ) , VA (L'G) , VA ( .REE) , 

3 VA(LDLG),VA(LDLEO),VA(LDLGO),VA(LFSO)) 

RETURN 

END 



SUBROUTINE EXTEMP ( VCORG, KDLNC, VDIMP, X\'£S, KLD, KLGCE, VCDRE, VPRNE, 

1 VPREE, KNE, VKE, VME, VFE, VDLE, VKGS, VKGB, VKG! , VFG, VRES, VDLS, 

2 VDL£0,VDLG0,VFG0) 

C TO EXECUTE BLOCK ’TEMP’ 

C TO SOLVE AN UNSTEADY PROBLEM (LINEAR OR NOT) 

IMPLICIT REAL*8(A-H,0-Z) 

CQMMON/RESO/NEQ, NFILLR (2) 

COWON/CCND/NCLT, NCLZ, NCLNZ 
COMMON/ ASSE/NSYW, MFILLRG) 

COWON/NLIN/EPSDL, XNORM, OMEGA, XPAS, DPAS, DPASO, NPAS, I?AS, NITER, 

1 ITERjIMETH 

COMMON/ES/M, MR, MP, Ml, M2, M3, MA, MDUMMY (S) 

DIMENSION VCORG (♦) , KDLNC(*) , VDIMP (*) , KNEO (*) , KLD (*) , KLDCE (») , 

1 VCORE (*) , VPRNE (*) , VPREE (*) , K^€ (*) , VKE (♦) , VME (♦) , VFE (*) , VDLE (♦) , 

2 VK6S (*) , VKGD (♦) , VKGI (*) , VFG (*) , VRES (♦) , VDLS (* ) , VDLEO (*) , 

3 VDLGO(*),VFGO(*) 

DATA ZERO/O.DO/,UN/l.DO/ 

C 

DPASO=ZERO 

XPAS=ZERO 

IPAS=0 

C READ INITIAL D.O.F. ON FILE M3 

IF(M3.EQ.O) GO TO 5 
REMIND M3 

READ(M3) (VDLG(I),I=1,NEQ) 

CALL MAJ (UN, ZERO, NEQ, VDLG, VDL(30) 

C SAVE THE REFERENCE LOAD CONDITIONS 

5 COLL MAJ (UN, ZERO, NEQ, VFG, VFGO) 

C READ A CARD DEFINING A SET OF IDENTICAL STEPS 

10 READ(M1, 1000) DPAS,I1,I2,I3,X:,X£ 

1000 F0RKAT(F10.0,3I5,2F10.0) 

IF (DPAS. EO. ZERO) GO TO 140 
IF(Il.GT.O) NPAS=I1 
IF(I2.GT.O) NITER=I£ 

IF(I3.GT.O) IMETH=I3 
IF(Xl.GT.ZERO) £PSDL=X1 
IF(X2.NE.ZER0) 0M£BA=X2 
C 

C LOOP OVER THE STEPS 



231 



c 

DO 130 IP=l,NPftS 
CALL INIT(ZER0,N£Q,VF6) 
IPflS=IPflS+l 
XPRS=XPftS+DPfiS 



WRITE(MP,2000) 


IPA3, D?AS,XPAS,M’ER, IMETH, 


E?SDL,CME0A 


F0RMAT(/1X,13(’ 


-’),’STEP NUMBER (I?AS):’,I 


5// 


1 


14X,’ INCREMENT 


(DPAS)=’,E12.5/ 


2 


14X,’ TOTAL LEVEL 


(X?AS)=’,E12.5/ 


3 


14X,’ NUMBER OF ITERATIONS 


(NITER) =’,112/ 


4 


14X,’ METHOD NUMBER 


(IMETH);’, 112/ 


5 


14X,’ TOLERANCE 


(E?SDL)=’,E12.5/ 


6 


14X,’ COEFFICIENT ALPHA 


(0MEEA)=’,E:£.5,') 



C 

C LOOP OVER EQUILIBRIUM ITERATIONS 

C 

DO 110 ITER=1, NITER 

C CHOOSE THE METHOD 

IF(IMETH.GT.3) GO TO £0 
C EULER TYPE METHODS 

CALL EULER (VCORG, KDLNC, VDIMP, KNEQ, KLD, KLOCE, VCORE, VPHNE, VPREE, 

1 KNE, VKE, VME, VFE, VDLE, VKGS, VHGD, VKGI , VFG, VRES, VDLG, 

2 VDLE0,VDLG0,VFG0) 

GO TO 100 

C OTHER METHODS 

20 CONTINUE 

WRITE(MP,20I0) IMETH 

2010 FORMAT!’ w ERROR, METHOD;’ , 13, ’ UNKNOWN’) 

STOP 

C COMPUTE THE NORM 

100 CALL NORMEtNEQ, VRES, VDLG, XNORM) 

IF(M.GT.O) WRITE (MP, 2020) ITER,XNORM 
2020 FORMAT (5X,’ ITERATION (ITER);’, 13,’ NORM (XNORM) =’,£!£. 5) 
IF(M.GE.2) CALL PRSOL(KDLNC, VCORG, VDIMP, KNEQ, VDLG) 

IF ( XNORM. LE.EPSDL) GO TO 120 
110 CONTINUE 

C END OF STEP 

120 DPAS0=DPAS 

CALL MAJ (UN, ZERO, NEQ, VDLG, VDLGO) 

CALL PRSOL (KDLNC, VCORG, VDIMP, KNEQ, VDLG) 

130 CONTINUE 
GO TO 10 

C SAVE THE SOLUTION ON FILE M4 

140 IF(MA.NE.O) WRITE(M4) (VDLG (I), 1=1, NEQ) 

RETURN 

END 
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SUBROUTINE EULER (VCORG, KDLNC, VDI>!?, <NEQ, O, KlGCE, VCORE, vPv\E, 

1 VPREE, KNE, VKE, WE, VFE, VDlE, VKS5, VK3D, VKSI, VF3, VRES, VDLE, 

2 VDLE0,VDLG0,VFS0) 



C ALGORITHM FOR EULER TYPE METHODS (IMPlICH, EXPLICIT GR BOrH 

C ACCORDING TO OMEGA) FOR LINEAR OR NON LINEAR PROBLEMS. 

C THE NON LINEAR PROBLEM IS SOLV0 BY A NEWT0N-RAPH30N 
C METHOD 

C IMETH.EQ.1 STANDARD NEWTQN-RAPHSON 

C IMETH.EQ.2 K IS CONSTANT 

C IMETH.EQ.3 K IS RECOMPUTED AT T:-E BEGINNING OF EACH STEP 

C==========================================: 



IMPLICIT REAL*8(A-H,0-Z) 

COMMON/ ASSE/NSYM, NKG, MFILLR (2) 

COMMON/RESO/NEQ, NFILLR(2) 

COmON/NLIN/EPSDL, XNORM, OMEGA, X?AS, DPAS, DPASO, NPAS, I PAS, NITER, 
1 ITER, IMETH 

COMMON/ES/M, MR, MP, MDUMMY ( 10) 

DIICNSION VCORG(*),KDLNC(*),VDIMP(*),KNEQ(*),KLD(*),KLOCE(*), 

1 VCORE(*),VPRNE(*),VPREE(*),KNE(»),VKE(*),VMEU),VFE(*), 

2 VDLE (*) , VKGS (*) , VXGD (*) , VKGI ( ») , V-G (♦) , VRES (♦) , vDLB ( *) , 

3 VDLEO(*),VDLGO(*),VFGO(*) 

DATA ZER0/0.D0/,UN/1.D0/ 

C 

C DECIDE IF GLOBAL MATRIX IS TO BE REASSEMBLED 

IKT=0 

IF (IMETH.EQ.1) GO TO 10 
IF (DPAS. NE. DPASO. AND. ITER. EQ.1) GO TO 10 
IF(I)£TH.£Q.3.f^D.ITER.EQ.l) GO TO 10 
SO TO 20 
10 IKT=1 

C INITIALIZE GLOBAL MATRIX TO ZERO IF NECESSARY 

20 IF(IKT.EQ.O) BO TO 30 

CALL INIT(ZERQ,NKG,VKGS) 

CALL INIT(ZERQ,NEQ,VKGD) 

IF (NSYM. EQ. 1 ) CALL INIT (ZERO, NKG, VKGI ) 

C ASSEMBLE RESIDUALS AND GLOBAL MATRIX IF REQUIRED 

30 CALL MAJ (UN, ZERO, NEQ, VFGO, VRES) 

CALL ASEULR ( IKT, VCORG, KDLNC, VDIMP, KNEQ, KLD, KLOCE, VCORE, VPRNE, 

1 VPREE, KNE, VKE, VME, VFE, VDLE, VKGS, VKGD, VKGI , V'Pb, VRES, VDLG, 

2 VDLEO,VDLGO,VFGO) 

C1=UN 

IF(ITER.GT.l) C1=C1-CMEGA 
DO 40 1=1, NEQ 

40 VRES(I)=DPAS*(VRES(I)-Cl*VFu(D) 

C SOLVE 



CALL SOL (VKGS, VKGD, VKSI, VRES, KLD, NEQ, MP, IKT, 1,NSYM,ENER3) 

C UPDATE THE SOLUTION 

CALL MAJ (UN, UN, NEQ, VRES, VDLG) 

RETURN 

END 
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SUBROUTINE ftS£LLS( IKT, VCORS, KD’.NC, K.\iEO, KlD, KlOEI, VCGRE, 

1 VPRNE, VPREE, KNE, VKE, VFE, VDLE, VKGS, VKGD. VKSI , VFG, VRES, 

2 VDLG,VDLEO,VDLSO,VFGO) 

C TO ASSEMBLE THE RESIDUALS AND THE GLOBAL MATRIX (IF IHT.ES.l) 

C WHILE LOOPING OVER THE 3.EMENTS (FOR EULER METHOD) 

IMPLICIT REAL*a(A-H,0-Z) 

COMMON/ELEM/NG.T, NNEL, NTPE, NGRE, ME, NIDENT, MNULL 
CO^WON/ASSE/NSYM, MFILLR (3) 

COMMON/RESO/NEQ, NFILLR(2) 

COMMON/RGDT/IEL, ITPE, ITPEl, ISRE, IDLE, ICE, IPRNE, IPREE, INE_, IDEG, IPG 
1 ,IC0D,NULL(3) 

COMMON/NLIN/EPSDL, XNORM, OMEGA, X?AS, DPAS, D=ASO, NPAS, I PAS, NITER, 

1 ITER, IMETH 

COMMON/ES/M, MR, MP, Ml, M2, MDUMMY (8) 

DIMENSION VCQRG ( *) , KDLNC ( *) , VDIM? ( *) , KNE9 (♦) , KLD ( #) , KLDCE (*) , 

1 VCORE (*) , VPRNE (*) , VPREE (*) , KNE (*) , VKE (*) , VME (*) , VFE(*) , VDLE (♦) , 

2 VKGS(*),VKGD(*),VKGI(*),VFG(*),VRES(*),VDLG(*),VDL£0(«), 

3 VDLGO(*),VFGO(«) 

DATA UN/1. DO/ 

C 

CC=DPAS*OMEGfi 

IFE=0 

IF (ITER. ST. 1) IFE=1 

C REWIND ELEMENT FILE (ME) 

REWIND M2 

C LOOP OVER THE ELEMENTS 

DO 90 IE=1,NELT 

C READ AN aEMENT 

CALL RDELEM(M2, KLOCE, VCQRE, VPRNE, VPREE, KNE) 

C EVALUATE INTERPOLATION FUNCTIONS IF REQUIRED 

IF ( ITPE. EQ. ITPEl) SO TO 10 
ICQD=2 

CALL £LEMLB( VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

c FIND Element d.o.f. from vfg 

10 CALL DLELM (KLOCE, VDLG,V0IMP, VDLE) 

C COMPUTE THE RESIDUAL K.U. 

ICCD=6 

CALL ELEMLB ( VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

C COMPUTE MATRIX M 

IC0D=5 

CALL ELEMLB ( VCORE, VPRNE, VPREE, VDLE, VME, VFE) 

C COMPUTE MATRIX K IF REQUIRED 

IF(IKT.EQ.O) SO TO 15 
IC0D=3 

CALL ELEMLB (VCQRE, VPRNE, VPREE, VDLE, VKE, VFE) 

C RESIDUALS OF THE FIRST ITERATION IN EACH STEP (LINEAR) 

15 IF(ITER.GT.l) GO TO 20 

CALL ASSEL (0, 1 , IDLE, NSYM, KLOCE, KLD, VKE, VFE, VK8S, VKGD, VKGI , V-3) 
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GO TO 60 

C RESIDUALS AFTER FIRST ITERATION 

20 CALL DLELM(KLOCE,VDLGO,VDI!«P,VDLEO) 

DO 30 1=1, IDLE 

VDLE ( I ) = ( VDLEO ( I ) -VDLE ( I ) ) /DPAS 
30 VFE(I)=-OMEGA*VFE(I) 

C PRODUCT M . U 

VFE(1)=VFE(1)+VM£(1)WDLE(1) 

11=1 

DO 50 J=2, IDLE 
J1=J-I 

DO AO 1=1, J1 
II=II+I 

VFE ( I) =VF£ ( I ) +VME ( I I) *VDL£ (J) 

40 VFE(J)=VFE(J)+VI€(II)»VDLE(I) 

11 = 11+1 

50 VFE(J)=VFE(J)+VME(II)+VDL£(J) 

C MATRIX « + D3AS. OMEGA. K 

60 IF(IKT.EQ.O) GO TO 80 

11=0 

DO 70 1=1, IDLE 
DO 70 J=I,IDLE 
11 = 11+1 

70 VKE(II)=VKE(II)*CC+VME(II) 

C ASSEMBLE THE RESIDUAL AND THE GLOBAL MATRIX 

80 CALL ASSEL ( IKT, IFE, IDLE, NSYM, KLCCE, KLD, VKE, VFE, VKGS, VKGD, VKGI , 
1 VRES) 

90 ITPE1=ITPE 

RETURN 
END 
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SUBROt/riNE BLVaiP 



C TO CflLL BLOCK ’VflLP’ 

C TO COMPUTE EIGENVfllLES AND EIGENVECTORS BY THE SuBSPflCE 
C ITERATION TECHNIQUE 

IMPLICIT REAL*8(A-H,0-Z) 

CHARACTER*^ TBL 

COMMON/ELEM/NULL (4) , ME, MNULL (2) 

COM1CN/ASSE/NSYM, NKG, NKE, NDLE 
COMMON/RESO/NEQ, NFILLR (2) 

COMiON/VALP/NITER, NMDIAG, EPSLB, SHIFT, NSS, NSWM, TOLJAC, NVAL? 
COMMON/ES/M, MR, MP, Ml, M2, MOUMMY (8) 

COMMON/LOC/LCORG, LDLNC, L\E3, LDIMP, LPRN3, LPRcG, LLD, LLOCE, LCORE, LNE, 
1 LPRNE, LPREE, LDLE, LKE, LFE, LKG3, uKED, U-<5I, U^G, LRES, LDLG, LDL*MMY(4) 
COMMON/TRVL/Xl, X2, X3, II, 12, 13, 14, 15, RDL’/MY (51S) 

COMMON VAll) 

DIltNSION TBL (20) 

DATA ZERO/O.DO/ 

C+++ THIS IS COMMENTED OUT BECAUSE OF AN MS FORTRAN CCMPILER 

C+++ BUG WHICH WILL NOT INITIALIZE $LARGE ARRAYS. r^IS ARRAY 

C+++ IS NOW INITIALIZED BY A CALL TO A DUMMY SUBROUTINE 
C+++ INITBL WHICH EXISTS SOL0.Y TO INITIALIZE THIS ARRAY 
C 

C DATA TBL/’KGS ‘,’KGD ’, ’MGS ’,’MGD ’,’FG ’,’KE ’,’FE ’,’DLE’, 
C 1 ’RES ’,’DLG ’,’P ’,’LAMB’,’LAMI’,’R ’,’KSS ’,’M&5 ’, 

C 1 ’VI ’,’VX ’,’V2 ’/ 

C 

C HERE IS THE CALL TO GET AROUND THE COMPILER BUG 

CALL INITBL (TBL, ’VALP’) 

C 

C+++ ALL OF THIS IS TO GET AROUND THE MICROSOFT 
C+++ COMPILER BUG 
C 

IF(Ml.EQ.O) M1=«R 
IF(M2.EQ.O) M2=ME 

READ(M1, 1000) II, 12, XI, X2, 13, 14, 15, X3 
1000 FORMAT (215, 2F10. 0, 315, IFIO. 0) 

IF(Il.NE.O) NVALP=I1 
IF(I2.i«.0) NITER=I2 
NSS=I3 

IF(I4.NE.0) NMDIAG=I4 
IF(I5.NE.O) NSWM=I5 
IF(Xl.NE.ZERO) EPSLB=X1 
IF(X2.NE.ZER0) SHIR=X£ 

IF(X3.NE.ZER0) T0LJAC=X3 
IF(NSS.NE.O) GO TO 10 
NSS=MINO (NVALP+8, 2»NVAL?) 

NSS=MINO(NSS,NEQ) 
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10 CONTINUE 

WRITE (MP, £000) NVfiL?, M'E.t, N^DISS, EPSlB, SHI”, NSS, NSWN, TOLJPC 

2000 FORMAT (//’ SUBSPflCE rE'PTION ’.26 (’=’)/ 



1 15X, ’NUMBER OF DESIRED EISENVfilLES 

2 15X,’MfiX. NUMBER OF ITERSTICNS PER^ImED 

3 15X, ’INDEX FOR DIflBONflL MATRIX 
A 15X,’ CONVERGENCE TOLERANCE ON EIGENVALLcS 

5 15X, ’SHIFT 

6 15X,’ SUBSPACE DIMENSION 

7 15X,’MAX. NUMBER OF ITERATION IN JACOBI 

8 15X,.’ CONVERGENCE TOLERANCE IN JACOBI 
IF(NVALP.LE.NEQ.AND.NSS.LE.NEQ) GO TO 20 
WRITE (MP, 2010) 

2010 FORMAT!//’ — ERROR — NVALP OR NSS GREATER THAN NEO’,/, 
1 ’ — STOP EXECUTION — ’ ) 

GO TO 30 



(NVALP) =’ 
(NrER)=’ 
(NMjIA5)=’ 
!E?5-.B}=> 
(SKI.-T)=’ 
(NSS)=’ 
(NSWM)=’ 
(TOLJAC)=’ 



112 / 

112 / 



’ t p / 



112 / 

1E12.5/) 



20 IF (LKGS. EQ. 1 ) CALL ESPACE (NKG, 1 , TBL ( 1 ) , LKG3) 

IF(LKGD.EQ.l) COLL ESPACE (NEQ, 1, TBL (2), LKGD) 

CALL ESPACE (NKG, 1, TBL (3) , LMG3) 

CALL ESPACE (NEQ, 1,TBL(A), LKGD) 

IF (LFG. EQ. 1 ) CALL ESPACE (NEQ, 1 , TBL (5) , LFG) 

IF(LKE.EQ,1) COLL ESPACE(i«£, 1,TBL(6),LK£) 

IF(LFE.EQ.l) CALL ESPACE(NDLE, 1,TBL(7),LFE) 

IF(LDL£.EQ.l) CALL ESPACE (NDLE, 1, TBL (8), LDLE) 

IF(LRES.EQ.l) CALL ESPACE (NEQ, 1 ,te10),LRES) 

IF(LDLG.EQ.l) CALL ESPACE (NEQ, 1,T3L( 10), LDLS) 

CALL ESPACE (NEQ*NSS, 1 , TBL ( 1 1 ) , LVEC) 

CALL ESPACE (NSS, 1, TBL ( 12), LLAKB) 

COLL ESPACE (NSS, 1,TBL(13),LLAM1) 

CALL ESPACE (NSS* (NSS+D/2, 1,TBL(16),LKSS) 

CALL ESPACE (NSS* (NSS+1 ) /£, 1 , TBL ( 17) , L"SS) 

CALL ESPACE (NEQ, 1, TBL ( 18), LVl) 

CALL ESPACE(NSS*NSS,1,TBL(19),LX) 

CALL EXVALP (VA (LLD) , VA (LDIMP) , VA (LLOCE) , VO (LCORE) , VA (LPRNE) , 

1 VO (LPREE) , VA(LNE) , VO (LFE) , VO (LKE) , ’VA (LKGS) , VA (LKGD) , VA (L-G) , 

2 VO (LCORG) , VO (LDLNC) , VO (UNEQ) , VO (LRES) , VA (LDLE) , VO (LDLG) , 

3 VA(LMGS) , VO(LMGD) , VO (LVEC) , VO (LLAMB) , VO (LLAMl ) , VO (LKS3) , VA 

4 ,VO(LVl),Vfl(LX),NEQ,NSS) 

30 RETURN 

END 
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SUBROUTINE EXVPLP (K’J), K.OCE, vCORE, VP5\E, VPREi, -A£, . -E, V'E. 

1 WGS, VKGD, VPG, VCORG, KDLNC, K.NEQ, VRES, VOLE, VOL'i, V*t3S, V^SD, 

2 V£C, VLPMB, VLflMl , VKSS, VYSS, VI , VX , NEQ, NS3) 

C TO EXECUTE BLOCK ’Vfil?’ 

C TO COMPUTE EIGENVALUES AND EIGENVECTQHS BY SUBSPACE 

C ITERATION 

C (IF NVALP.EQ.I INVERSE ITERATION METHOD) 

IMPLICIT REAL*8(A-H,0-Z) 

COMMON/ASSE/NSYM, NKG, N’KE, NDLE 

COMMON/VALP/NITER, .NMDIAG, £?£LS, S-ilFT, NSSl , NSaM., TGLJAC, NVSL? 
CQMM0N/E3/M, MR, MP, MDUMMY (10) 

DliCNSIGN KLD (♦) , VDIM? (♦) , KLDCE (*) , VCDRE (♦) , V3RNE(*; , V^REE W , 

1 KNE (♦) , VFE (♦) , VKE (*) , VKGS '*) , VKGD (*) , VF6 (#) , VCCR6 (*) , KDLNC (♦) , 

2 KNEQ ( ♦ ) , VRES ( * ) , VDLE ( * ) , VDL3 ( » ) , V MGS (* ) , V>GD ( # ) , VEC ( NEQ, « ) , 

3 VLAiMB (*) , VLAMl (*) , VK3S(*) , VIMSS (*) , VI (♦) , VX (NSS, *) 

DATA ZERO/0. DO/, UN/ 1. CDO/, GRAND/ 1. 0032/ 

ABS(X)=DABS(X) 

C 

c 

C PR3.IMINARY COMPUTATIONS 

C 

C ASSEMBLE KG AND MG 

CALL ASKG (KLD, VDIMP, KLXE, VCORE, VPRNE, VPREE, KNE, VKE, V'E, VK3S, VHSD, 
i VKGI.VFG, VDLE, VRES) 

CALL ASMG (KLD, VDIMP, HLGCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, VM6S, 

1 VMGD,VM6S,VFG, VDLE, VRES) 

C TRIANGULARIZE KG 

CALL SOL ( VK6S, VKGD, VKGI , VFS, KLD, NEO, MP, 1,0,0, ENER3) 

C LOAD VECTOR EQUAL TO DIAGONAL OF M 

CMAX=ZERO 

IC0NT=O 

DO 10 ID=1,N£Q 
C=GRAND 



C CHECK FOR ZERO DIAGONAL TERM IN VMSD 

IF(VXGD(ID).£Q.ZERO) GO TO 5 

ICCNT=ICQNT+1 

C=VKGD(ID)/VMGD(ID) 

5 V1(ID)=C 

IF(C.GT.CMAX) CMAX=C 
VEC(ID,1)=VMGD(ID) 

DO 10 JS=2,NSS 
10 V£C(ID,JS)=ZERO 

C CHECK IF SUBSPACE DIMENSION IS EQUAL TO MASS D.O.F. 

IF (ICCNT.lt. NSS) GO TO 250 

C UNIT LOAD VECTORS CORRESPONDING TO MIN. O' 

C K(I,I)/M(I,I) 

DO 30 JS=2,NSS 
C=C«AX 
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DO 20 ID=1,N£Q 
IF(VKID).GT.C) GO TO 20 
C=V1(ID) 

II=ID 

20 CONTINUE 

Vl(II)=CMflX 
V€C(II,JS)=ljN 
30 VLA«B(JS)=UN 

VLAMB(i)=U\’ 

IF(NVfiL3.Ej.l) NSS=i 

C INVERSE ITESaTIGN IF NVaiP=l 

C START ITERATIONS LOOP 

C 

ITERN=0 
ITNAX=NITER+1 
DO 200 ITER=1, ITMAX 

C CC!»;PUTE RITZ VECTORS 

110=0 

DO 80 JS=1,NS3 
I 10=1 10+ JS 
DO 40 ID=1,NEG 
40 Vl(ID)=VcCaD,JS) 

CALL S0L(VK8S,V:<GD,VKGI,Vl,KLD,N£Q,.'tP,0, 1,0, EVER 

C CALCULATE TF:E PROJECTION OF K 

11=110 

DO 60 IS=JS,!«S 
C=Z£RO 

DO 50 ID=1,!€Q 
50 C=C+V1(ID)*V£C(ID,2S) 

VKSS(II)=C 
60 II=II+IS 

DO 70 ID=1,I€Q 
70 VEC(ID,JS)=V1(ID) 

80 CONTINUE 

C CALCULATE THE PROJECTION OF 

110=0 

DO 120 JS=1,NSS 
II0=II0+JS 
DO 85 ID=l,NEa 
85 V1(ID)=ZER0 

CALL I^ULK’J ( VNGS, V?!6D, VYGS', KLD, VECIl , JS) , NEQ, 0, VI ) 
11=110 

DO 100 IS=JS,NS3 
C=ZERO 

DO 90 ID=1,NEQ 
90 C=C+V1(ID)*VEC(ID,IS) 

IF(ITERN.GT.O) G0 to 120 
VMSS(II)=C 
100 II=II+IS 

DO 110 ID=1,NEQ 
no VEC(ID,JS)=V 1 (ID) 
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1£0 CONTINUE 

IF (NSS.GT.l) 60 TO 125 
VLflMl(l)=VKSS(l)/VMSS(l) 

50 TO 165 

C CALCULATE EIGENVALUES IN "HE SUBSPACE 

125 CALL JACOBI ( VKSS, VMSS, NSS, NSWM, TOLJAC, Vi , VLANl , VX ) 

C NEW LOAD VECTOR 

DO 160 ID=1,NEQ 
DO 130 JS=1,NSS 
130 V1(JS)=VEC(ID,JS) 

DO 150 JS=1,NSS 
C=ZERO 

DO 140 IS=1,NSS 
140 C=C+Vi(IS)*VX(IS,JS) 

150 VEC(ID,JSi=C 
160 CONTINUE 
165 CONTINUE 

C PRINT THE ITERATION VALUES 

IF(«.LT.l) GO TO 130 
WRITE(«P,2000) ITER 

2000 FORMAT!//’ ITERATION 15/) 

DO 170 IS=1,NS3 

WRITE (MP, 2010) IS,VLAM1(IS) 

2010 FORMAT!/’ EIGENVALUE NO. ’,15,’ =’,E12.5//’ EIGENVECTOR:’ ) 

170 CALL PRS0L!KDLNC,VC0RG,VDIMP,KNEQ,VE0!1,IS)) 

C CHECK FOR CONVERGENCE 

180 IF!ITERM.GT.O) GO TO 210 
C=ZERO 
IEX=0 

DO 190 IS=1,NSS 

C1=ABS ! ! VLAMl ! IS) -VLAMB ! IS) ) /V!_AMB ! IS) ) 

IF!C1.GT.C) C=C1 
IF!C1.L£.EPSLB) !EX=IEX+1 
190 CONTINUE 

WRITE !MP, 2015) IT£R,C,IEX 

2015 FORMAT!’ ITERATION ’,14,’ MAX. £RROR=’ ,£9. 1, ’ EXACT EIGENVALUES:’ 
1,14) 

IF!IEX.GE.NVALP) ITER«=1 

C NON CONVERGENCE 

IF!ITER.LT.NIT£R.OR.ITERM.EQ.l) GO TO 195 
WRITE !MP, 2020) NITER 

2020 FORMAT!’ ** NON CONVERGENCE AFTER ’,15,’ ITERATIONS’) 

ITERM=1 

C SAVE THE EIGENVALUES 

195 DO 200 IS=1,NSS 
200 VLAMB! IS)=VLAM1!IS) 

C 

C RESULT 

C 

C ARRANGE EIGENVALUES IN ASCENDING ORDER 

210 IS1=NSS-1 
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IF (IS1.S8.0) 50 TO 225 
DO 230 IS=!,IS: 

I1=IS+1 

C=VLflr3(IS) 

I1=IS 

DO 220 JS=I1,NSS 
IF{C.LT.VLft(^3(JS)) GO TO 220 
C=VLfl«B(JS) 

II=JS 

220 CONTINL€ 

VLAMB{II)=VLft!*!B(IS) 

VLAMB{IS)=C 
DO 230 ID=l,NEO 
C=V£C{ID,IS) 

VEC{ID,IS)=V£C{ID,II) 

230 VECaD,II)=C 

C PRINT RESLiT 

WRITE (MP, 2030) IT£R 

2030 FORMAT!/’ .... CQNVET3ECE IN’, 14, » ITERATIONS’/) 
235 CONTINUE 

DO 240 IS=1,NVALP 
WRITE (MP, 2010) IS,VLAMB(IS) 

240 CALL PRSOL(KDLNC, VCORG, VDIMP,KN£S, V£C(1, IS) ) 

GO TO 260 
250 CONTINUE 

WRITE (MP, 2040) 

2040 FORMAT!’ NSS IS LARGER THAN MASS D.O.F.’) 

260 RETURN 
END 
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c=^ 

c 



SUBROUTINE flSKGIKLD, VDI«P,K'.CC>, VCGRE, V^TEE, VKE, v‘E, 
1 VKGS, VK3D, VKGI, VFG, VDLE, VRES) 



TO ASSEMBLE THE GLOBAL MASS MATRIX (ELEMENT FUNCTION 5) 



C- 

C- 

C- 

C- 

C- 

C- 



10 

C- 



IMPLICIT REAL*8(A-H,0-Z) 

COMMON/ELEM/NELT, NNEL, NT^E, NSRE, ME, NIDENT, MNL-LL 
COMMON/ASSE/NSYM, MFILLR (3) 

CO?«WON/RESO/N£Q, NFILLR (2) 

C0I«810N/RGDT/IEL, TPE, ITPEl, ISRE, IC'_E, ICE, IPRNE, IPREE, INEL, IDEE, 
1 ,IC0D,NULL(3) 

COMMON/ES/M, MR, MR, Ml, M2, MDUMMY(8) 

DIMENSION KLD (*) , VDIMP (*) , KLGCE (*) , VCORE (*) , VPRNE (*) , VPR£E(*) , 

1 KNE (*) , VKE ( *) , VFE ( *) , VKGS ( *) , VKGD (*) , VKGI ( *) , VFG (*) , VDLE (*) , 

2 VRES(*),KEB(I) 



-- REWIND Element file (M2) 

REWIND M2 

~ LOOP OVER THE ELEMENTS 
DO 30 IE=1,NELT 

— SKIP COMPUTATIONS I? IDE.NTICA:_ ELEMENTS 
IF(NIDENT.EQ.l.AND.IE.GT.l) GO TO 20 

— ;R£AD AN ELEMENT 

CALL RDELEM(M2, XLOCE, VCORE, VPRNE, VPREE, KNE) 

— EVALUATE INTERPOLATION FUNCTIONS IF REQUIRED 
IFdTPE.EQ. ITPEl) GO TO 10 

IC0D=2 

CALL ELEMLB (VCORE, VPRNE, VPREE, VDLE, VKE, VF£) 
IC0D=5 

CALL ELEMLB (VCORE, VPRNE, VPREE, VDLE, VKE, V.^) 

— PRINT ELEMENT MATRIX 
IF(M.LT.2) GO TO 20 

IF (NSYM. EQ. 0) IKE=IDLE* ( IDLE+1 ) /2 
IF(NSYM.£(S.l) IKE=IDL£*IDLE 



MRITE(MP,2000) !EL, (VKE(I), M, IKE) 

2000 FORMAT!/’ MATRIX (ME) , ELEMENT 15/ ( lOX, 10E12. 5)) 

C ASSEMBLE 

20 CALL ASSEL (1,0, IDLE, NSYM, KLGCE, KLD, VKE, VFE, VKGS, VKGD, VKGI , VFG) 
30 ITPEi=ITPE 
RETURN 
END 
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SCBSOUTINE JftCGBI (VK, Vi*t, NCY«, EPS, vP'_30, VECT) 

C TO SOLVE THE £IBcX?ROBLE>! K-LflMBDfi.X BY THE SEN'ERAuIZED 
C JflCGBI METHOD 

C INPUT 

C VK 

C 

C VM 

C 

C N 

C NCYM 

C EPS 

C WORKSPfiCE 

C VflLPO 

C OUTPUT 

C VflLP 

C VECT 

IMPLICIT REflL*8(fl-H,0-Z) 

CO?S^CN/£S/M, MS, HP, MDUMMY ( 10) 

DIMENSION VK (*) . VM (*} , VflL?0(N) , VALP(N) , VECT (N, N) 

DATA EPSDO/1. D-4/, ZESO/0. DO/, UNVl. DO/, DE'JX/2. DO/, 3UATS/4. DO/ 
SGRT(X)=DSORT(X) 

ABS(X)=DABS(X) 

EPS2=EPS»EPS 
ITR=0 

C VERIFY IF DIAGONAL TERMS ARE POSITIVE 

C AND INITIALIZE EIGENVALUES 

11=0 

DO 20 1=1, N 
II=II+I 

IF (VK (ID. ST. ZERO. AND. VM (I I). 3T. ZERO) SO TO 10 
WRITE (MP, 2000) I 

2000 FORMAT!’ « ERROR, NEGATIVE DIAGONAL TERM IN JACOBI, ROW 
1 15) 

STOP 

10 VALP(I)=VK(II)/VM(II) 

20 VALPO(I)=VALP(I) 

C INITIALIZE EIGENVECTORS 

DO 40 1=1, N 
DO 30 J=1,N 
30 VECT(I,J)=ZERC 

40 VECT(I,I)=UN 

C FOR EACH SWEEP 

DO 250 IC=1,NCYM. 

C DYNAMIC TOLERANCE 

EPSD=SPSD0MIC 

C SWEEP ROWWISE OVER UPPER TRIANILE 

IMAX=N-1 
11=0 



MATRIX X (UPPER TRIANGLE BY DESCENDING 
COLUMNS) 

MATRIX M (UPPER TRIANGLE BY DESCENDING 
COLUMNS) 

ORDER 0? matrices K AND M 
MAXIMUM NUMBER OF SWEEPS ALLOWED (15) 
CONVERGENCE TOLERANCE (l.D-12) 

WORKING VECTOR (DIMENSION N) 

EIGENVALUES 

EIGENVECTORS 
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DO 130 1=1, L>!ftX 
10 = 11+1 
II=II+I 
IP1=I+1 
IJ=II+I 
JJ=II 

DO 180 J=IP1,N 

JPi=J+l 

J>11=J-1 

J0=JJ+1 

JJ=JJ+J 

J3=JJ-1 

C COMPuTS COUPLING FACTORS 

FK=( VK ( I J) *VK ( IJ) ) / (VK ( 1 1 ) »VK ( JJ) ) 

FM= ( V« (IJ) m ( ! J) ) / (VM( 1 1 ) *vJ1 ( JJ) } 
IF(FK.LT.EPSD.flND..-y.LT.£PSD) 50 TO 160 

C COMPUTE THE TRfiNSFGRMflTiCK CCEF-ICIEN^S 

ITR=ITR+1 



C1=VK(II)*VM(IJ)-VM(II)*VK(IJ) 
C2=VK ( JJ) *V« (I J) -VM ( JJ) *VK ( IJ) 
C3=VK (II) «VM ( JJ) -VM ( I I ) »VK ( JJ) 



DET= (C3«C3/QUATR) + (Cl «C£) 



IF(DET.S£.ZE3C) GO TO 50 



WRITE (MP, 2005) I,J 

^005 FORMAT!’ «*ERRGR, SINGULAR JACC3I TRANSFORMATION I 
1 ’ J=’,I5) 

STOP 

50 D£T=SQRT(DET) 

Di=C3/D£UX+DET 

D2=C3/DEUX-DET 



D=D1 



IF(ABS(D2).8T.A33(D1))D=D2 



IF(D.EQ.ZERQ) GO TO 60 

A=C2/D 

B=-C1/D 

GO TO 65 



60 A=ZERO 

B=-VK(IJ)/VK(JJ) 

C MODIFY COLUMNS OF K AND M 

65 IF(I.E(2.1) 30 TO 80 

IK=IO 
Ji=IJ-l 



DO 70 JK=J0,J1 

Ci=VK(IK) 

C2=VK(JK) 

VK(IK)=C1+B*C2 

VK(JK)=C2+A*C1 

C1=VM(IK) 

C2=V«(JK) 

VM(IK)=C1+B*C2 

VM(JK)=C2+AC1 
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80 



IK=!K+1 

IF(I.EQ.JMl) GO '0 ICO 
IK=II+I 
J2=IJ+1 
IM=I 

DO 90 JK=J2,J3 
CI=VK(IK) 

C2=VKUK) 

VK<IK)=C1+B*C£ 
W(JK)=C£+fl^tCl 
Cl=V«aK) 

C2=VM(JK) 

VM(IK)=C1+B*C2 
VM(JK)=C2+AC1 
IM=I«+1 
90 IK=IK+iM 
100 IF(J.EQ.N) GO ^0 120 
IK=IJ+J 
JK=JJ+J 
IM=J 

DO no JJK=JP1,N 
C1=VK(IK) 

C2=VK(JX) 

VK<IK)=C1+B*C2 

VK<JK)=C2+R*C1 

C1=VM<IK) 

C2=V«<JK) 

VW<IK)=C1+B*C2 
V«<JK)=C2+flHK:i 
IW=IW+1 
IK=IK+I?I 
no JK=JK^IM 
120 C1=VK<II) 

C2=VK(IJ) 

C3=VK(JJ) 

B2=B*B 

BB=D£UX*B 

fl2=fi*fl 

flfl=DEJX*fl 

VKai)=Cl+BB*C2+E2*C3 

VK<IJ)=Z£RQ 

VK ( J J ) =C3+fifi*C2+fl2-»C 1 

C1=VM(II) 

C2=VM(IJ) 

C3=V«(JJ) 

V«(II)=C1+BB*C2+B£*C3 

VM<IJ)=ZERO 

VM<JJ)=C3+fiP.C2+fl2*Cl 

C UPDATE EKBTVECTORS 

DO 170 IJ1=1,N 
C1=VECT<IJ1,I) 
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C2=VECi(IJl,J) 

VECTaJl,I)=Cl+8*C2 
170 VECT(IJl,J)=C£+a*Cl 
180 IJ=IJ+J 

C UPDATE EIGENVPcUES 

11=0 

DO 190 1=1, N 
II=II+I 

IF(VK(II).BT.ZES0.AMD.V>t(i:).5T.ZE=10) 2C '3 ISO 

WRITE (MP, £000) I 

STOP 

190 VflLP(I)=VKai)/V>!(II) 

IFIM.GT. 1) WRITE (KP, £010) IC, (VPLPd), 1=1,:^; 

£010 FORMfiTl/’ EIGENVALUES, SWEEP ’, I4/(1X,10E12.5)) 

C CHECK FOR CONVERGENCE OF EIGENVALUES 

DO 200 1=1, N 

IF (ASS (VALP ( I ) -VALPO ( I ) ) . GT. (£='S*VAL30 ( I ) ) ) GO TO 230 
200 CONTINUE 

C CHECK FOR CONVERGENCE ON DIAGONAL TERMS 

JJ=1 

DO 210 J=£,N 

JJ=JJ+J 

JM1=J-1 

11=0 

DO £10 I=1,J>!1 

II=II+I 

IJ=JJ-J+I 

FK=VK ( IJ) *VK ( IJ) / ( VK (I I ) *VK ( JJ) ) 

FM=V« ( I J) ♦VIM ( IJ) / (V«( II ) «Vf1( J J) ) 

IF(rK.GT.EPS2.0R.FM.GT.E?S2) GO TO 230 
210 CONTINUE 

C NORMALIZE EIGENVECTORS 

JJ=0 

DO 220 J=1,N 
JJ=JJ+J 

C1=SQRT(VM(JJ)) 

DO 220 1=1, N 

220 VECT(I,Jj=V£CT(I,J)/Cl 

C ACHIEVED CONVERGENCE 

IF(M.GT.O) WRrE(M?,2020) IC,ITR 

2020 FORMAT (I5X, ’CONVERGENCE IK ’,14,’ SWEEPS AND ’,15,’ TRANSFORMATION 
IS IN JACOBI’ ) 

RETURN 

C TRANSFER VAL? INTO VALPO 

230 DO 240 1=1, N 
240 VAL?0(I)=VALP(I) 

250 CONTINUE 

C FAIL TO CONVERGE 

WRITE (MP, 2030) NCYM 

2030 FORMAT(’ ♦♦ ERROR, CONVERGENCE FAILURE IN JACOBI IN’, 14,’ SWEEPS’) 
STOP 
END 
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$LflRSE; VKSIl 
$LflRI^; KEXPl 
$LflRGE: VVvSia 
$LflRG£: KEXP2 
$LflRGE: WSI3 
$LflRGE: KEXP3 
$LflRGE; VKSI 
$LftRGE: KcXP 
$LfiRG£; INDIC 
«LARGE; 6 
$LARGE: P 
iLflRK: TBL 
$LARGE: WGT 
ORGE: =S:t 
$L flR8E: ETPT 
$LflRGE; INT^L''! 

$LflRG£; MNTV 
$LfiRGE: ?S 
$LflRGE! E' 

ORGE: IPGKED 

SU8R{LTIf€ DLV.'^Y (MICSQSC-T, BUG, KILLER) 

C I REFER TO THE FGLi:..I\'3 SLBRGaTI^E3, WhCSE NAMES BEGIN 

C WITH “INIT," AS DUMMY SLB^G’r:\ES, BECAUSE THEY ARE 

C NEEDED TO INITIALIZE THE ARRAYS ARE -ASSE:' AE 

C CALLING PARAMETERS. THE ARRAYS CANN-C BE I'.ITIP.IZED 

C DATA STATEMENTS IN A DIRECT FASHION BECAUSE THERE IE A 

C BUG IN THE MICROSOFT FORTRAN COMPILER V3.E, WH:C- ZTEE >:C“ 

C INITIALIZE REAL ARRAYS CORRECTlY IF THEY HAVE BEEN IDENT- 

C IFIED AS ILARGE ARRAYS. IT DOES NOT SEEM TO MATTER WHETHER 

C THEY ARE DECLARED LARGE USING THE "GENERIC” $LASGE WITHOUT 

C SPECIFIC ARGUMENTS, OR WHETHER THEY HAVE BEEN DECLARED 

C SPECIFICALLY AS IN THE METACOMMANDS PRECEEDING THIS ROUTINE 

C 

C IF THE BELOW ROUTINES ARE DUMMY ROUTINES; THIS ONE HAS GOT 

C TO BE CALLED AN IDIOT ROUTINE. THIS ROUTINE EXISTS BECAUSE 

C THE DATA STATEMENTS FOR REAL ARRAYS WILL NOT COMPILE CORRECTLY 

C IF THEY ARE IN THE FIRST SUBROUTINE IN A COMPILAND. THIS 

C SUBROUTINE PROVIDES A PAD TO FOOL THE COMPILER. WITHOUT 

C THIS ROUTINE, THE ONE IMMEDIATELY FOLLOWING WILL NOT COMPILE; 

C WITH THIS ROUTINE IT DOES. 

C 

IMPLICIT REAL*8(0-H,0-Z) 

DIffiNSION BUG (20) 

BUG(l) = O.DO 

RETURN 

END 
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SUBROU* INE (VKSI 1, KEXPl, VXSI2, XEXPE, VXS:3, KEXP3} 

C THIS SUBROUTINE EXISTS SOlt.Y TO SET AROUND fi XICRuSCFT 

C COMPILER BUS. ITS PURPOSE IS ^0 INriPlIZE THE PRRfiYS 

C PASSED AS ARGUMENTS. THE DUMMY mm VKSI 11, VKSIE2, 

C VKSI33, KEXPil, KEXP22, AND KEXP33 -AVE BEEN GIVEN 

C AHRIBUTE $N'QTLAR3E, AND wILL BE INITIALIZED PRO^ER-Y 

C BY THE COMPILER. THE $NOTLARGE ATTRIBUTE IS ASSIGNED 

C BY DEFAULT SINCE THEIR DIMENSIONS DO NOT EXCEED 64K BY'ES 

C OF STORAGE. 

C 

C THIS SUBROUTINE IS CALLED BY SuBROUTI.'€ MOl WHICH IS 

USED FOR ELEMENT TYPE 1 



IMPLICIT REALMS (A-H,Q-Z) 

DIMENSION VKSIl (3),K£X?1 (3),VKSI2 (16),KEXP2 (l6),Vr:SI3 (SO), 
1 KEXP3(60) 

DIMENSION VXSI 1 1 (3) , KEXOl 1 (3) , VKSI22 ( 15) , KEXP22 ( 16) , VKSI33 (SO) , 
1 KEXP33(60) 

C 

C CHARACTERISTICS FOR 1,2 AND 3 DIMENSIONAL REFERENCE ELEMENTS 
C 

C HERE IS THE DUMMY ARRAY INITIALIZATION 

C 

DATA VXSI11/-1.D0,0.D0,1.D0/ 

DATA KEXPll/0,1,2/ 

DATA VKSI22/-1.D0,-1.D0, +0.D0,-1.D0, +1.D0,-1.D0, +1.D0,+0.D0, 
1 +1.D0,+1.D0, +O.DO,+i.DO, -l.DO.+l.DO, -l.DO,-^0.00/ 

DATA KEXP22/0,0, 1,0, 0,1, 2,0, 1,1, 0,2, 2,1, 1,2/ 

DATA VKSI33/-1.DO,-1.DO,-1.DO, Ki.D0,-l.D0,-l.D0, 

1 +1.D0,-1.D0,-1.D0, +1.D0,H\D0,-1.D0, 

2 +1.D0,+1.D0,-1.D0, +O.DO,+l.D(),-l.DO, 

3 -l.DO,+l.DO,-l.DO, -l.DO,+O.DO,-i.DO, 

4 -l.DO,-l.DO,+O.DO, +1.DO,-1.DO,+O.DO, 

5 +1.D0,+1.D0,+0.D0, -l.DO,+l.DO,+O.D<j, 

6 -l.DO,-l.DO,+l.DO, +O.DO,-l.DO,+l.IXi5 

7 +1.D0,-1.D0,+1.D0, +l.DO,+O.C<i,+l.DC, 

8 +1.D0,+1.D0,+I.D0, +0.D0,+1.D0,+1.D0, 

9 -l.DO,+l.DO,+l.DO, -1. DO, +0.00,+!. DO/ 

DATA KEXP33/0, 0,0, 1,0,0, 0,1,0, 0,0,1, 1,1,1, 

1 1,1,0, 0,1,1, 1,0,1, d, 0, 0, 0,2,0, 0,0,2, 

2 2 , 1 , 0 , 2 , 0 , 1 , 2 , 1 , 1 , 1 , 2 , 0 , 0 , 2 , 1 , 1 , 2 , 1 , 

3 1,0,2, 0,1,2, 1,1,2/ 

C 

C INITIALIZE THE REAL ARRAYS 

C 

DO 10 I = 1,3 
VKSIKI) = VKSIIKI) 

KEXPKI) = KEXPil (I) 

10 CONTINUE 
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DO 20 I = i, IS 
VKSI2(I) = VKSI22(I) 
KEXP2(I) = K£X?22(I) 
CONTINUE 
DO 30 I = 1,60 
VKSI3(I) = VKSI33(I) 
K£XP3(I) = K£XP33(I) 
30 CONTINLiE 
RETURN 
END 
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SUBSCliTINE iNITNSlVKSI.XEX: 



THIS SUBROUTINE EXISTS SOLELY TO SET fiRC'JND A NICROSCFT 
COMPILER BUG. ITS PURPOSE IS TO INITIALIZE THE ARRAYS 
PASSED AS ARGUMENTS. THE DUMMY ARRAYS VKSII AiND REXPP -A-Jl 
BEEN GIVEN THE ATTRIBUTE $NOTLARGE, AND «I_L BE INITIALIZED 
PROPERLY BY THE COMPILER. ThE $N0TLARSE ATTRIBUTE IS ASSIivEIi 
BY DEFAULT SINCE THEIR DIMENSIONS DO NOT EXCEED 64K BYTES 
OF STORAGE. 



THIS SUBROUTINE IS CALLED BY SUBROUTINE NI02 WHICH IS 
USED BY ELEMENT TYPE 2 



IMPLICIT REAL*8(A-H,0-Z) 

.. INFORMATION RELATED TO THE 8 NQDED REFERENCE SQUARE ELEMEN" 
(INEL.EQ.8 NDIM.EQ.2) 

DI!€NSION VKSI (NDIM*INEL) , KEXP (NDIM*IN£L) , XDER (NDIM) 

DIMENSION VKSI ( 16), KEXP ( 16) 

DII€NSION VKSII ( 16),KEXPP( 16) 

INTITIALIZE THE DUMMY ARRAYS 



NODAL COORDINATES OF THE REFERENCE ELEMENT 
DATA VKSII/-1.D0,-1.D0, +0.D0,-1.D0, +i.D0,-l.D0, +1.D0,+0.D0, 
1 +1.D0, +1.D0, +0.D0,+1.D0, -l.DO,+l.DO, -i.DO,+O.DO/ 

MONOMIAL EXPONENTS OF T»^E POLYNOMIAL BASIS, MAX-DEGREE 
DATA KEXPP/0,0, 1,0, 0,1, 2,0, 1,1, 0,2, 2,1, 1,2/ 

INITIALIZE THE REAL ARRAYS 

DO 10 I = 1, 16 
KEXP(I) = KEXPP(I) 

VKSKI) = VKSIIU) 

CONTINUE 

RETURN 

END 
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SUBROUTINE INITN3(VK3I,K£XP) 



C THIS SUBROUTINE EXISTS SOLELY TO GET AROUND A MICROSOFT 

C COMPILER BUG. ITS PURPOSE IS 70 INITIALIZE THE ARRAYS 

C PASSED AS ARGUMENTS. THE DUMMY ARRAYS VKSII AND KcXPP HAVE 

C BEEN GIVEN THE ATTRIBUTE $NO?J)RG£, AND WILL BE INITIALIZED 

C PROPERLY BY THE COMPILER. THE $NGTLAR5£ ATTRIBU" IS ASSIGNED 

C BY DEFAULT SINCE THEIR DIMENSIONS DO NOT EXCEED 6AK SY‘ES 

C CF ST0RA6E. 

C 

C THIS SUBROUTINE IS CALLED BY SUBROUTINE NI03 UHICH IS 

C USED BY ELEMENT TYPE 3 



IMPLICIT REAL*8(A-H,Q-Z) 

C 

C INFORMATIONS CARACTERIS7IQUE3 DU TRIANSLE A 6 NQEuDS 

C (INEL.EQ.6 NDIK.EQ.2) 

C DIMENSION 'VKSI(NDIM*IN£L),KEX?(NDIM*IN£L) 

DIMENSION VKSI ( 12),KEX? ( 12) 

DIMENSION VKSI I ( 12),K£X?P( 12) 

C 

C THIS IS THE DUMMY ARRAY INITIALIZATiaN 

C 

C COORDONNEES DES NOEUDS DE L’ ELEMENT DE REFERENCE 

DATA VKSI I/O. DO, 0. DO, 0. 5D0, 0. DO, 1 . DO, 0. DO, 0. 5D0, 0. 5D0, 0. DO, 1 . DO, 
1 0.D0,0.5D0/ 

C EXPOSANTS DES MONOMES DE LA BASE POLYNOMIALS, DEGRE MAX. 

DATA KEXPP/0,0, 1,0, 0,1, 2,0, 1,1, 0,2/ 

C 

C INITIALIZE THE REAL ARRAYS 



C 

DO 10 I = 1, 12 
VKSI (I) = VKSIKI) 
KEXP(I) = KEXPP(I) 
10 CONTINUE 
RETURN 
END 
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SUBROUTINE INITS6(fcGT, PSr, E’AT, INTNUM, NIMV) 

C THIS SUBROUTINE EXISTS SOLELY TO GET AROUND A ?iICROSOFT 

C COMPILER BUG. ITS PURPOSE IS TO INITIALIZE -HE ARRAYS 

C PASSED AS ARGUMENTS. THE DUMMY ARRAYS ^^”,?SITT, 

C ETATT, INTNUU, AND NINTVV HAVE BEEN GIVEN Ti-.E 

C AHRIBUTE iNOTLARGE, AND WILL BE INITIALIZED PROPERLY 

C BY THE COMPILER. THE iNOUARGE ATTRIBUTE IS A&SISNED 

C BY DEFALiT SINCE THEIR DIMENSIONS DO NOT EXCEED 64K BYTES 

C OF STORAGE. 

C 

C THIS SUBROUTINE IS CALLED BY SUBROUTINE STFC»6 WHICH IS 

C USED FOR ELEMENT TYPE 6 

C======================================== 

IMPLICIT REAL*8(A-H,0-Z) 

DIMENSION WGT (*),PSIT (»),ETAT (*), !NTNUM(*),NINTV (♦) 
DIMENSION WGTT (7) , PSITTI7) , ETATTI7) , INTNUU (5) , NINTVV(5) 

C 

C HERE IS THE DUMMY ARRAY INITIALIZATION 

C 

DATA PSITT/ 0.333333333333DO, 

♦ 0. 166666666667D0, 0. 16666666666700, 0. 666666666667D0, 

♦ 0.5D0 ,0.5D0 ,0.0D0/ 

DATA ETATT/ 0. S33333533333D0, 

♦ 0. 166666666667D0, 0. 666666666667D0, 0. 166666666667B0, 

♦ O.ODO ,0.5D0 ,0.5D0/ 

DATA WGH/ l.ODO, 

♦ 0. 333333333333D0, 0. 333333333333D0, 0. 333333553333D0, 

♦ 0. 333333333333D0, 0. 333333333333D0, 0. 333333333333D0/ 
DATA INTNUU / 0,1,4,7,11/ 

DATA NINTVV / 1,3, 3, 4, 7/ 

C 

C INITIALIZE THE REAL ARRAYS 

C 

DO 10 I = 1,5 
INTWM(I) = INTNUUd) 

NINTVd) = NINTWa) 

10 CONTINUE 

DO 20 I = 1,7 
wGT(i) = wsna) 

PSIT(I) = PSITT(I) 

ETAT(I) = ETATT(I) 

20 CONTINUE 
RETURN 
END 
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SUBROUTIi\£ IMITR5(3S,£T) 

THIS SU3R0UTIKE EXISTS SOLELY TO 3ET fi=0'J^iD A I^ICRGSOFT 
COMPILER BOG. ITS PURPOSE IS TO INI’ia.IZE “^E ARRAYS 
PASSED AS ARGUMENTS. THE D^JMMY ARRAYS ^S3 AND E'T rAVE 
BEEN GIVEN THE ATTRIBUTE $NCTLAR3E, AND «ILL E5 iNriALIZED 
PROPERLY BY THE COMPILER. THE SNQTLARGE AT^RIBrS IS ASSISNEO 
BY DEFAULT SINCE THEIR DIMENSIONS DO NOT EXCEED S4K BYTES 
OF STORAGE. 

C 

C THIS SUBROUTINE IS CALLED BY SUBROUTINE STRQS >)HICH IS 

C USED FOR ELEMENT TYPE 6 

IMPLICIT REAL*8 (A-K,0-Z) 

DIMENSION PS (*),ET (♦) 

DIMENSION PSS(6),En(6) 

C 

C HERE IS THE D'JMMY ARRAY INITIALIZATION 

C 

DATA PSS /0.,1.,0., 0.5, 0.5,0./ 

DATA EH /0.,0.,1.,0.,0.5,0.5/ 

C 

C INITIALIZE THE REAL ARRAYS 

C 

DO 10 I = 1,6 
PS(I) = PSS(I) 

ET(I) = ETT(I) 

10 CONTINUE 
RETURN 
END 
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SUBROUTINE INUNTIVKSI, HEX?) 
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THIS SUBROUTINE EXISTS SOLELY '0 SET AROL'MD fl .MICROSOFT 
COMDILER BUG. ITS OURPOSE IS TO IMITIPLIZE THE ARRAYS 
PASSED AS ARGUMENTS. THE DUMMY ARRAYS vKSII a,ND HEX?? HAVE 
BEEN GIVEN THE ATTRIBUTE SNOTLARBE, AND WILL BE INITIALIZED 
PROPERLY BY THE CO.MPILER. th£ 5N0TLARGE ATTRIBUTE IS ASSISnED 
BY DEFAULT SINCE THEIR DIMENSIONS DC NOT EXCEED 54K BY‘ES 
OF STORAGE. 

mis SUBROUTINE IS CALLED BY SLERCHiTINE NI07 WHICH IS 
USED BY Element type i 



IMPLICIT REALMS (A-H,0-Z) 



INFORMATIONS LIEE5 A L’E_E.MENT DE SE^'ERENCE CARRE A 20 .NOEJDS 
(INEL.EQ.20 NDIM.EQ.3) 



DIMENSION VKSI (NDIM*INEL),KEX3(NDIM*INEL),KDERI.\DIM) 
DIMENSION VKSI ( 60),KEXP( 60) 

DIMENSION VKSIII 60),XEXPP( 60) 



INITIALIZE THE DUMMY ARRAYS 



DATA VKSII/ 

1 -l.DO,-l.DO,-l.DO, 

2 +1.D0,+0.D0,-1.D0, 

3 +1.D0, +1.D0, “l.DO, 
A -i.DO,+O.DO,-l.DO, 

5 -l.DO,-l.DO,+O.DO, 

6 -l.DO, l.DO,+O.DO, 

7 -l.DO, -l.DO, +!. DO, 

8 +1.D0,+0.D0,+1.D0, 

9 +1.D0,+1.D0,+1.D0, 
A -l.D0,+0.D0,+l./ 



+0. DO, -1. DO, -1. DO, +!. DO, -1. DO, -1. DO, 
+0. DO, +1. DO, -1. DO, -1. DO, +1. DO, -1. DO, 
+1. DO, -1. DO, +0. DO, +1. DO, +1. DO, ■«). DO, 
+0. DO, -1. DO, +1. D<), +1. 00, -1. DO, -^1. DO, 
+0. DO, "^l. DO, +1. DO, -I. DO, +1. DO, +1. DO, 



EXPQSANTS DES MQNOMES DE LA BASE POLYNOMIALE, DEGRE !»!PX. 



DATA KEXPP/0, 0,0, 1,0,0, 0,1,0, 0,0,1, 2,0,0, 

1 1,1,0, 0,1,1, 1,0,1, 2,1,0, 2,0,1, 

2 1,0,2, 0,1,^, 1,1,1, (£,1,1, 1,2,1, 



0,2,0, 0,0,2, 
l,ii, V, 0,2,1, 
1 , 1 , 2 / 



INITIALIZE THE REAL ARRAYS 



DO 10 I = 1,60 
KEXP(I) = KEXPP(I) 
VKSKI) = VKSIKI) 
CONTINUE 
RETURN 
END 
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9JBR0UTINE IN'IT£ft(I^DIC,G, P) 



THIS SUBROUTINE cXIS’S £0 
COMPILER BUS. ITS PURPCS: 
OASSED AS AR5LT1ENT3. THE 



.E^Y TC SET ARO'J^J) A MICROSOFT 
, 13 TO INITIALIZE THE ARRAYS 
DUMMY ARRAYS I'sDICC, ES, AND 



PP HAVE BEEN GIVEN THE AHRIBUTE $NGTw?.^3E, AN'D vsTll EE 
INITIALIZED PROPERLY BY THE CGMPILER. THe” JNGTLARGE 
ATTRIBUTE IS ASSIGNED BY DEFAULT SINCE THEIR DIMP^SIO^S 



DO NOT EXCEED SAK SY’ES CF STORAGE. 



THIS SUBROUTINE IS CALLED BY SuBROU'^INE GAUSS. 



IMPLICIT REAL*8(A-H,D-Z) 

DIMENSION INDIC (A),G (10),? (10) 

DIMENSION INDICC(A),GG(10),??(i0) 

HERE IS THE DUMMY ARRAY INITIALIZATION 

DATA INDICC/1,2,A,7/ 

DATA GG/0. ODO, -. 5773502691 8%2SD0, . 577350259 169S25D0, 

1 -. 77A5%6692A1 A83D0, 0. ODO, . 77A5966632A1 A83DC, 

2 -. 861 13631 159A050D0, -. 3399ai0A358A860D0, 

3 . 3399810A358A860D0, .86113631 159A050D0/ 

DATA PP/2.ODO,1.0DO,1.0DO, 

1 0. 555555555555556D0, 0. 83888838888888900, 0. 555555555555556D0, 

. 3A785A8A5137A50D0, . 6521A515A862550D0, 

. 6521A515A362550D0, . 3A785A8A5137A50D0/ 

INITIALIZE THE REAL ARRAYS 

DO 10 I = 1, A 
INDIC(I) = INDICC(i) 

CONTINUE 



DO 20 I = 1,10 
G(I) = BG(I) 
P(I) = PO(I) 
20 CONTINUE 
RETURN 
END 
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SUBROUTINE INITBUTBl, wHiO) 



C THIS SUBROUTINE EXISTS SGLE.Y TO GET AROUND A NICROSO^T 

C CO>!?IL£R BUG. ITS PURPOSE IS TO INITIALIZE 'HE ARRAY TBL 

C PASSED AS ftN ARSUNENT. Th£ DUMMY ARRAYS TBLX HAVE BEEN GIVEN 

C THE AURIBUTE $NOTlARGE, AND WILL BE INITIALIZED PROPERLY 

C BY THE COMPILER. THE $N0TLRR6E AT’SIBL!TE IS ASSIGNED BY 

C DEFAULT SINCE THE DIMENSION DOES NOT EXCEED 64K BYTES OF 

C STORAGE. TBL CONTAINS POINTERS INTO THE WORKING ARRAY. 

C 

C THIS SUBROUTINE IS CALLED BY SUBROUTINE BLLIND, 8LNLIN, 

C BLTENP, 9LVALP, BLCOQR, BLCOND, BLPREL, BLELE^L BL&3L.R, 

C AND BLLINM. 

CHARACT£R#4 TBL, WHO, CALLER ( 10) , TBLl ( iO) , TBL2 ( 10) , TBL3 ( 13) , 

♦ ‘^L4(20),TEL5( 2),T3L6( £), 

♦ TBL7( 2),TSL6( G),TBLS( 6),TBL10(6) 
DIMENSION TBL (♦) 

DATA CALLER/’ LIND’ , ’ NUN’ , ’ T£f<!P’ , ’ VALP’ , ’ COOR’ , ’ COND’ , ’ ^REL’ , 

♦ ’ELEM’,’SOLR’,’LINM’/ 

DATA NTBLS/10/ 

C 

C INITIALIZE THE DUMMY ARRAYS 

C 

C TBL ASSIGNMENTS FOR SUBROUTINE BLLIND 

DATA TFlI/’ KGS ’,’KGD ’,’KG2 ’,’FG ’,’K£ ’,’F£ ’,’RES ’,’DLE 

♦ ’EB ’,’PB ’/ 

C 

C TBL ASSIGNMENTS FOR SUBROUTINE BLI^IN 

DATA TBL2/’KGS ’,’KGD ’,’KGI ’,’FG ’,’K£ ’,’FE ’,’RES ’,’DLE ’. 

♦ ’DLG’,’ME ’/ 

C 

C TBL ASSIGNMENTS FOR SUBROUTINE BLTEMP 

DATA TBL3/’KGS ’,’KGD ’,’KGI ’,’FG ’,’KE ’,’FE %’RES 

♦ ’DLE ’,’DLG ’,’M£ ’,’DLEO’,’DLGO’,’FGO ’/ 

C 

C TBL ASSIGNMENTS FOR SUBROUTINE BLVALP 

DATA TBLA/’KSS ’,’KGD ’,’M6S ’,’MGD ’,’FG ’,’KE ’,’FE 

♦ ’DLE ’,’RES ’,’DLG ’,’P ’,’LAMB’ ,’LAM1’,’R ’,’PHI ’, 

♦ ’KSS ’,’MSS ’,’Vl ’,’VX ’,’V2 ’/ 

C 

C TBL ASSIGNMENTS FOR SUBROUTINE BICOOR 

DATA TBL5/’C0RG’,’DLNC’/ 

C 

C • TBL ASSIGNMENTS FOR SUBROUTINE BLCOND 
DATA TBLG/’NEQ ’,’DIMP’/ 

C 

C TBL ASSIGNMENTS FOR SUBROUTINE BLPREL 

DATA TBL7/’PREG’,’V ’/ 

C 
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’.’_xr 

c 

c '5L ft£E:sN-"s:<*E 

TB'.S/’rS ’,’^'1 ’ 

♦ ’RES ’/ 

C ”BL ^SSIBWE^^S 'jR 

I»;TA 73'_’0/’KSS ’.’.^cD 

♦ ’D'-E ’/ 

I 

C jETERXift 7-£ DJlLIRiS RO'-^lNiE 

X 5 I = 1,’*~3LS 

IF Wj. Ei. cs._ER ( : ) ) :x:vT = : 

5 CSNTI'^JE 

c 

C SR:)*Oi TO COF.REET ivl’Iif.IZFi'M'N' LOOP 

SG:0(!0,£rO,30,^J,50,=/J,70,SO,50, iOO). IX>~ 

c 

C IKITI«.IZE Trt 3 £:l P^RPV -O^ i-tl.Vj 

10 X 15 I = :,:o 

T5L(I) = TaUd) 

15 CO’^TIVX 

^SuJRn' 

r' 

U 

C IKITIALIZE T-€ r£;L PRRPY FD^ 

EO 00 25 1 = 1,10 

T3L(!) = TBL2(I) 

25 CONTIMJE 

STL’RK 
C 

C IMITIiLiZE '-E ?£iL ftRRPY "DR X'EKP 

30 DO 35 I = 1,13 

T3L(I) = 7SC3C) 

35 €3\llHJc 

;ETl'? 5 V 

C 

C IKITIALIZE Tr€ ?£SL P-RPY 'DR ?_VPL? 

40 DO 45 I =1,20 

T3L(I) = T3L4(I) 

45 CaKTI*<X 

r 

C IKITia.2ZE "HE OL AfiRPY FDR 3.CD0R 

yj DO ^ I = 1,2 

T3L(!) = t3l5(I) 

55 C»,T!«£ 

rETt'rN 

C 

C IKITIfLIZE ^r€ ?£AL ARRAY FDR 2LC0ND 

&0 DO S5 1 = 1,2 
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TBL(I) = TBL6(I> 



CONTINUE 

RETURN 



C 

C 



INITIALIZE THE REQL ftR.RAV FOR ElPSEL 



70 DO 75 I = 1,£ 

TBL(I) = TBL7(I) 

75 CONTINUE 

RETURN 
C 

C INITIALIZE THE REAL ARRAY FOR BlELEM 

80 DO 85 I = 1,6 

TBL(I) = TBL8(I) 

85 CONTINUE 

RETURN 
C 

C INITIALIZE THE REf^ ARRAY FOR BLSCLR 

90 DO 95 I = 1,8 

TBL(I) = TBL9(I) 

95 CONTINUE 

RETURN 
C 

C INITIALIZE THE REAL ARRAY FOR BLLINM 

100 DO 105 I = 1,8 

TBL(I) = TBLIO(I) 

105 CONTINUE 

RETURN 
END 



SUBROUTINE INIT?G(IP6KED,WH0) 

C THIS SUBROUTINE EXISTS SOLELY TO BET AROiiND A MICROSOFT 

C COMPILER BUG. ITS PURPusE IS TO INITIALIZE THE ARRAY 

C PASSED AS AN ARGUMBiT. THE DUMMY ARRAY IPGKX HAS BEE.N 

C GIVEN THE AHRIBUTE $NOTLARGE, AND WILL BE INITIALIZED 

C PROPERLY BY THE COMPILER. THE $NGTLARGE ATTRIBUTE IS 

C ASSIGNED BY DEFAULT SINCE THE DIM£\-SIGN DOES NOT EXCEED 

C 64K BYTES OF STORAGE. 



DIMEN-SION IPGKEDI*), IP6KK3), IPGK2(£), IPGK7(3) 
CHARACTER*A i^0,CALL£R(3) 

DATA CALLER/’ ELOl’ , ’ a02’ , ’ EL07’ / 

DATA NaRS/3/ 



C 

C 

C 



THIS SUBROUTINE IS CALLED BY SUBROUTINES E-EMOl, ELEMOE, 
AND ELEM07. 



C 

C 




DATA IPGKl/3,3,3/ 
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c 

c 




DflTfl IPGK2/3,3/ 



C 

C 



HESS IS THE INITIA;.IZfiTION ’OR Ei.£W 
DATA IPGK7/2,2,2/ 



C 

C DETERMINE THE CALLING ROUTINE 



DO 5 I = I.NCLRS 



Ir(WHO.EQ.CALLER(I)) IPOINT = I 
5 CONTINUE 
C 

C BRANCH TO CORRECT INITIALIZATION LOOP 



6070(10,20, 70), IPOINT 



r 



C 



INITIALIZE IPGKED FOR SUBROUTINE ELEMOl 



10 DO 15 I = 1,3 

IPGKED(I) = IPGKKI) 

15 CONTINUE 

RETURN 
C 

C INITIALIZE IPGKED FOR SUBROUTINE ELEM02 

20 DO 25 I = 1,2 

IPSKED(I) = IPGK2(I) 

25 CQNTINL'E 
RETURN 
C 

C INITIALIZE IPGKED FOR SUBROUTINE ELEM07 

70 DO 75 I = 1,3 

IPGKED(I) = IPGK7(I) 

75 . CONTINUE 



RETURN 

END 
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$LARGE 

$NOFLOATCflLLS 

SUBROUTINE ELEMLB ( VCORE, VPRNE, V'^REE, VDlE, VKE, V.-E) 

C TO COMPUTE ELEMENT INFORMATIONS FOR AlL TYPES OF ElEMENTS 

IMPLICIT REAL*8(ft-H,0-Z) 

CQMMCN/R6DT/IEL, lT?£,NuLL(13) 

DIMENSION VCORE (♦) , VPRNE ( *) , VPREE (*) , VDLE (*) MZi*) 

C 

GO TO ( 10, 20, 30, 40, 50, SO, 70, 30, 90, 100) , IT^^E 

C aEMENT OF TYPE 1 

10 CALL ELEMOl (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

GO TO 900 

C ELEMENT OF TYPE 2 

20 CALL ELEM02 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

GO TO 900 

C ELEMENT OF TYPE 3 

30 CALL ELEM03 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

GO TO 900 

C ELEMENT Or TYPE 4 

40 CALL ELEM04 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

GO TO 900 

C ELEMENT OF TYPE 5 

50 CALL ELEK05 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

GO TO 900 

C ELEMENT OF TYPE 6 

SO CALL ELEM06 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

GO TO 900 

C ^ — ELEMENT OF TYPE 7 

70 CALL ELEM07 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

80 TO 900 

C ELEMENT OF TYPE 8 

80 CAa ELEM08 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

GO TO 900 

C ELEMENT OF TYPE 9 

90 CALL ELEM09 (VCORE, VPRNE, VPREE, VDLE, VKE, VF£) 

■ GO TO 900 

C ELEMENT OF TYPE 10 

100 CALL ELEMIO (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

GO TO 900 

C OTHER ELEMENTS 

C 

900 RETURN 
END 
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$LflRG£ 

$N£FLOflTCflLLS 

SUBROUTINE ELEWl (VCORE, VPRNE, VPREE, VD.E, v'KE, V-E) 



c QUflDRPTic Element for rnisotsopic harmonic prcs^ems 
C IN 1,2 or 3 dimensions : 

C 1 DIMENSION: 3 NODES ELEMENT 

C 2 DIMENSIONS: 8 NODES ISOPARAMETRIC ELEMENT 

C 3 DIMENSIONS: 20 NODES ISOPARAMETRIC ELEMENT 

C NUMBER OF INTEGRATION POINTS : 2 IN EACH DIRECTION 

C NUMBER Or DEGREES OF FREEDOM PER NODE : 1 

C ELEMENT MATRIX OR VECTOR FORMED BY THIS SUBPROGRAM 
C ACCORDING TO ICODE VALUE : 

C ICGDE.EQ.1 RETURN OF PARAMETERS 

C ICODE. £0.2 EVALUATE INTERPOLATION FUNCTIONS AND 

C NUMERICAL INTEGRATION COEFFICIENTS 

C ICODE. EQ. 3 ELEMENT MATRIX (VKE) 

C ICODE. EQ. 4 TANGENT MATRIX (VKE).... NOT WRITTEN.... 

C ICODE. EQ. 5 MASS MATRIX (VKE) 

C ICODE. EQ. 6 K.U PRODUCT (VFE) 

C ICODE. EQ. 7 ELEMENT LOAD (VFE).... NOT WRITTEN.... 

C ICODE. EQ. 8 PRINT GRADIENTS 

C ELEMENT PROPERTIES 

C VPREE(l) COEFFICIENT DX 

C VPRE£(2) COEFFICIENT DY 

C VPREE(3) COEFFICIENT DZ 

C * VPR£E(4) SPECIFIC HEAT CAPACITY C 

IMPLICIT R£AL*8(A-H,0-Z) 

COMMON/COOR/NDIM, Nmi(3) , FNULL(S) 

CO!^ON/RGDT/IEL, ITPE, IJOEl, IGRE, IDLE, ICE, IPRNE, IPREE, INEl, IDE8, I^G 
1 , ICODE, IDLED, INELO, IPSO 



CaMMON/ES/M, MR, MP, MDUMMY (10) 

DIMENSION VCORE(«) , VPRNE(*) , VPREE (*) , VDL£(*) , 'VK£(*) , VFE (*) 

C CHARACTERISTIC DIMENSIONS OF THE ELEMENT 

C (VALID UP TO 3 DIMENSIONS) 

C DIMENSION VCPG(IPG),VKPG(NDIM*I?G),XYZ(NDIM) 

DIMENSION VCPG( 9),VKPG( 27),XYZ( 3) 

C DIMENSION VJ (NDIM*NDIM),VJ1(NDIM*NDIM) 

DIMENSION VJ ( 9),VJ1( 9) 

C DIMENSION VNIX( INEL*NDIM),VNI ((1+NDIM)*L\£L*IPG), IPGKED(NDIM) 
DIMENSION VNIX( 60),VNI ( 2160), IPBKED( 3) 

DATA ZERO/0. DO/, EPS/1. D-6/ 

C 

C NUMBER OF G.P. IN KSI, ETA, DZETA DIRECTION 

C 

C+++ THIS IS COMMENTED OUT BECAUSE OF THE MS FORTRAN COMP- 
C+++ ILER BUG WHICH WILL NOT INITIALIZE $LARG£ ARRAYS. 

C+++ THIS ARRAY IS NOW INITIALIZED BY A CALL TO A DUMMY 
C+++ SUBROUTINE INITPG WHICH EXISTS SOLELY TO INITIALIZE 
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C+++ THE NUMBER OF GAUSS POINTS FOR THE CALLING RGuTlN 
C 

C DATA IPGKED/3,3,3/ 

C 

C HERE IS THE CALL TO SET AROUND THE CO>iPILER BUG 

C 

CALL INITPG(IPGKED,’El01’) 

C 

C+++ ALL OF THIS HAS SOLELY TO SET AROUND THE MICROSOFT 
C+++ COMPILER BUG 

C 

IKE=IDL£*(IDLE+1)/2 

C 

C CHOOSE FUNCTION TO BE EXECUTED 

C 

GO TO (100, £00, 300, 40<3, 500, 600, 700, 8w) , ICODE 
C 

C RETURN aEMFNT PARAMETERS IN COMMON ’RSDT’ 

C 

100 GO TO (110, 120, 130), NDIM 
110 IDLE0=3 
INEL0=3 
IPG0=3 
RETURN 
120 IDLEO=a 
INEL0=8 
IPG0=9 
RETURN 

130 IDLE0=2O 
INEL0=20 
IP80=27 
RETURN 
C 

C EVALUATE COORDINATES, WEIGHTS, FUNCTIONS N AND 

C THEIR DERIVATIVES AT G.P. 

C 

200 CALL GAUSS(IPGK£D,NDIM,VK53,vC?G,IPG) 

CALL NI01(VKPG,VNI) 

RETURN 

C 

C COI^PUTE ELEMENT STIFFNESS MATRIX 

C 

C INITIALIZE VKE 

300 DO 310 1=1, IKE 
310 VK£(I)=ZERO 

C LOOP OVER THE INTEGRATION POINTS 

INI=1+IN£L 
DO 330 IG=1,IP8 

C EVALUATE THE JACOBIAN MATRIX, ITS INVERSE AND ITS DETERMINAN 

CAa JACOB (VNK INI ),VCORE, NDIM, !NEL,VJ,VJ1,DETJ) 

IF (DETJ.LT.EPS) WRITE (MP, 2000) IEL,!G,D£TJ 
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lit 



2000 FORWflK’ *** ELEM ’ , 15, ‘ P.S. %I3,’ DET(J)=’,E12.5) 

C PERFORM DETJ*W£ISHT 

COEF=VCPG(IG)*DETJ 

C EVfiLliATE FUNCTIONS D(NI)/D(X) 

Cfia DNIDX(VNI(INI),\;J1,NDIM, INEL, VNIX) 

C flCCUMULflTE TERMS OF THE ELEMENT MaTRIX 

IK=0 

DO 320 J=1,IDLE 
DO 320 I=i,J 
11=1 
I2=J 
C=ZERO 

DO 315 IJ=1,NDIM 

C=C+VNIX ( I 1 ) *VNIX ( 12) *VPREE ( IJ) 

I1=I1+IDLE 
315 I2=I2+IDLE 
IK=IK+1 

320 VKE(IK)=VKE(IK)+C»COEF 

C NEXT G. P. 

330 INI=INI+(NDIM+l)«INa 
RETURN 
C 

C EVALUATE ELEMENT TANGENT MATRIX 

C 

400 CONTINUE 
RETURN 
C 

C MASS MATRIX 

C 

500 DO 510 1=1, IKE 
510 VKE(I)=ZERO 

IF(VPREE(4).£Q. ZERO) RETURN 
INI=0 

DO 530 IG=1, IPG 

C EVALUATE THE JACOBIAN MATRIX 

I1=INI+INEL+1 

CALL JAC0B(VNI(I1),VC0RE,NDI-M, IVEL,VJ,VJ1,DETJ) 

C COMPUTE THE WEIGHT 

C0EF=VCP8( IG)*DETJ*VPREE(4) 

C TERMS OF THE MASS MATRIX 

IK=0 

DO 520 J=l, IDLE 
DO 520 1=1, J 
IK=IK+1 
I1=INI+I 
I2=INI+J 

520 VKE ( IK) =VKE (IK) +VNI ( 1 1 ) *VNI ( 12) *COEF 

530 INI=INI+(NDIM+i)*INEL 
RETURN 
C 

C EVALUATE THE ELEMENT RESIDUAL 
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c 

600 DO 605 1=1, INEL 
605 VFEa)=ZERO 
INI=1+IN£L 
DO 6A0 IG=1, IPG 

C EVALUATE THE JACOBIAN .MATRIX AND THE DERIVATIVES OF N IN X,Y,Z 

CALL JACOB ( VNI ( INI ) , VCORE, NDIM, INEL, VJ, VJl , DETJ) 

CALL DNIDX (VNI < INI), VJl, NDIM, INEL, VNIX) 

C COMPUTE THE COMMON COEFFICIENT 

COEF=VCPG<IG)*DETJ 

C VPREE*B*VDLE PRODUCT 

11=0 

DO 620 1=1, NDIM 
C=ZERQ 

DO 610 J=1,INEL 
11 = 11+1 

610 C=C+VNIXai)+VDLE(J) 

620 VJa)=C*CaEF*VPRE£n) 

C (BT)*VJ PRODUCT 

DO 630 1=1, INEL 
11 = 1 - 1 !®. 

DO 630 J=1,NDI« 

I1=I1+INEL 

630 VFEa)=VF£a)+VNIXai)*VJ(J) 

640 INI=INI+<NDIM+1)+INEL 
RETURN 
C 

C EVALUATE Ft 

C 

700 CONTINUE 
RETURN 
C 

C EVALUATE AND PRINT GRADIENTS AT S. P. 

C 

800 WRITE (MP, 2010) lEL 

2010 FORMAT!//’ GRADIENTS IN ELEMENT ;’,IA//) 

IDECL=(NDiM+l)*INa 
INI0=1 
INI=1+INEL 
DO 830 IG=1, IPG 

CALL JACOB(VNI (INI), VCORE, NDIM, INEL, VJ, VJl, DETJ) 

CALL DNIDX (VNI (INI) , VJl, NDIM, INEL, WIX) 

C EVALUATE THE COORDINATES OF THE G. P. 

DO 803 1=1, NDIM 
803 XYZ(I)=ZERO 
IC=1 
IO=INIO 

DO 807 IN=1,I1€L 
C=VNI(IO) 

DO 805 1=1, NDIM 
XYZ(I)=XYZ(I)+C*VCORE(IC) 
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805 IC=IC+1 
807 10=10+1 

C EVALUATE THE BRADIENT 

11=0 

DO 820 I=1,NDI.'1 
C=ZERO 

DO 810 J=l, IDLE 
11 = 11+1 

810 C=C+VNIX(I1)*VDLE(J) 

820 VJa)=CtVPREE(I) 

C PRINT THE GRADIENT 

WRITE («P, 2020) IG, (XYZ(I), I=1,NDI«) 

2020 FORMAT (5X,’?.G. CCGRDINATES ;',3E12.5) 

WRITE (MP, 2025) (VJ(I), I=1,NDIV) 

2025 FORMAT (15X, ’GRADIENTS ;’,3E12.5) 

INIO=INIO+IDECL 
830 INI=INI+IDECL 
WRITE (MP, 2030) 

2030 FORMAT!//) 

RETURN 

END 



SUBROUTINE NI01(VKPG,VNI) 

C TO EVALUATE THE INTERPOLATION FUNCTIONS AND THEIR DERIVATIVES 

C D(N)/D(KSI) D(N)/D(ETA) BY THE GENERAL PN-INVERSE METHOD 

C FOR 1,2 OR 3 DIMENSIONAL QUADRATIC ELEMENTS 



c 


INPUT 






c 


VKP6 


COORDINATES AT WHICH N IS TO BE E/ALUA’ED 


c 


IPG 


NUMBER OF POINTS 




c 


INEL 


NUMBER OF FUNCTIONS N (OR OF NODES) 


INS..LE.20 


c 


NDIM 


NUMBER OF DIMENSIONS 


NDIM.LE.3 


c 


OUTPUT 






c 


VNI 


FUNCTIONS N AND DERIVATIVES 





0 ====================================== 

IMPLICIT REAL*8(A-H,0-Z) 

CQMMON/COOR/NDIM, NNULL(3) , FNULL (3) 

COWION/RBDT/IEl, ITPE, ITPEl, IBRE, IDLE, ICE, IPRNE, IPREE, INEL, IDEB, IPG 
1 , NULL (4) 

COMMON/TRVL/VKSI, VPN, VP, XEXP, KDER, K1 
DIMENSION VKPG(+),VNI(*) 

DIMENSION VKSI 1(3), KEXPl (3) , VKSI2( 16) , KEX32 ( 16) , VKSI3 (60) , 

1 KEXP3(60) 



C 

C INFORMATION TO DEFINE THE 3 REFERENCE ELEMENTS 

C (INEL.LE.20 NDIM.LE.3) 

C DIMENSION VXSI(NDIM*INEL),KEXP(NDIM*INEl),KD£R(NDIM) 

DIMENSION VKSI ( 60),KEXP( 60),KDER( 3) 

C DIMENSION VPN (INEL+INEL), VP(INEL) 

DIMENSION VPN ( 400), VP( 20) 
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C DIOSION KKINEL) 

DIMENSION KI( £0) 

C CKflRflCTERISTICS ?CR 1,2 AND 3 DIMENSIONAl REFERENCE ElEMEMS 

DATA IDEGR/2/ 
r 

C+++ THIS IS COMMENTED OUT BECAUSE OF THE MS FORTRAN COMA- 
C+++ ILER BUG WHICH WILL NOT INITIALIZE $LARGE ARRAYS. 

C+++ THESE ARRAYS ARE NOW INITIALIZED BY A CALL TO A DUMMY 
C+++ SUBROUTINE INITNl WHICH EXISTS SOLaY TO INITIALIZE 
C+++ THESE SIX ARRAYS. 

C 

C DATA VKSI1/-1.DO,O.DO,1.DO/,K£XP1/O,l,2/ 

C DATA VKSI£/-1.D0,-1.D0, +0,D0,-1.D0, +1.D0,-1.D0, +1.1)0, +0.D0, 

C 1 +1.D0,+1.D0, +0.D<),+1.D0, -l.DO,+l.DO, -l.DO,+O.DO/ 

C DATA KEXP2/0,0, 1,0, 0,1, 2,0, 1,1, 0,2, 2,1, 1,2/ 

C DATA VK3I3/-i.D0,-l.D0,-l.D0, +O.DO,-1.DO,-1.DO, 

C 1 +1.D0,-1.D0,-1.D0, +l.DO,+O.DO,-i.DO, 

C 2 +1.D0,+1.D0,-1.D0, +O.DO,+1.DO,-1.DO, 

C 3 -l.DO,+l.DO,-l.DO, -l.DO,+O.DO,-l.DO, 

C 4 -l.DO,-l.DO,+O.DO, +1.D0,-1.D0,+0.D0, 

C 5 +1.D0,+1.D0,+0.D0, -l.D0,+l.D0,+0.D0, 

C 6 -l.D0,-l.D0,+l.D0, +<).DCi,-l.D0,+l.D0, 

C 7 +1.D0,-1.D0,+1.D0, +1.DO,+O.DO,+1.DO, 

C 8 +1.D0,+1.D0,+1.D0, +O.DO,+1.DO,+1.DO, 

C 9 -l.DO,+l.DO,+l.DO, -l.DO,+O.DO,+l.DO/ 

C DATA KEXP3/0, 0,0, 1,0,0, 0,1,0, 0,0,1, 1,1,1, 

C 1 1,1,0, 0,1,1, 1,0,1, 2,0,0, 0,2,0, 0,0,2, 

C 2 1,0, 2,0,1, 2,1,1, 1,2,0, 0,2,1, 1,2,1, 

C 3 1,0,2, 0,1,2, 1,1,2/ 

C 

C HERE IS THE CALL TO GET AROUND THE MICROSOFT 

C COMPILER BUG 

C 

CAa INITNl (VKSI 1, KEXPl, VKSI2, KEXP2, VKSI3, KEXP3) 

C 

C+++ Aa OF THIS WAS SIMPLY TO GET AROUND THE 
C+++ MICROSOFT COMPiaR BUG 

C 

C 

IDEG=ID£GR 

C SEaCT TABaS VKSI AND KEXP ACCORDING TO NDIM 

I1=NDIK*INEL 
DO 5 1=1,11 
GO TO (1,2, 3), NDIM 

1 VKSI(I)=VKSI1(I) 

KEXP(I)=KEXP1(I) 

GO TO 5 

2 VKSI(I)=VKSI2(I) 

KEXP(I)=KEXP2(I) 

GO TO 5 

3 VKSI(I)=VKSI3(I) 
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KEX?a)=KEXP3C) 

5 CONTINUE 

C EVflLUfi'E THE PN-INVER3E r'^flTRIX 

CALL PNINV(VKSI, KEXP, VP, Kl, VPN) 

C EVALUATE N,D(N)/D(KSI),D(N)/D(£TA) AT G.P. 

11=1 

12=1 

DO 10 IG=1,IPS 
KDER(1)=0 
KDER(2)=0 
KDER(3)=0 

CALL NI ( VKPG (ID, KEXP, KDER, VP, VPN, VNI ( 12) ) 

I2=I2+INEL 

KDER(1)=1 

CALL NI (VKPG ( 1 1) , KEXP, KDER, VP, VPN, VNI ( 12) ) 
I2=I2+IN£L 

IF(NDI«.EQ.l) GO TO 10 

KDER(1)=0 

KDER (2) =1 

CALL NI (VKPG (II), KEXP, KDER, VP, VPN, VNI ( 12) ) 
I2=I2+INEL 

IF(NDIM.EQ.2) GO TO 10 

KDER(2)=0 

KDER(3)=I 

CALL NI (VKPG ( 1 1 ) , KEXP, KDER, VP, VPN, VNI ( 12) ) 
I2=I2+INEL 
10 II=I1+NDIM 
RETURN 
END 
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SUBROUTINE £LEM02(V'C0RE, VPRNE, vPREE, VDLE, V<E, V-E) 

C 8 NODES QUADRATIC ELEMENT FOR £ DIMENSIONAL ELASTICITY 
C EVALUATE ELEMENT INFORMATIONS ACCOHDINo TO ICODE VALLE 

C ICODE=l ELB>!ENT PARAMETERS 

C IC0DE=2 INTERPOLATION FUNCTIONS AND SAUSS COEFFICIENTS 

C IC0DE=3 STIFFNESS MATRIX 

C ICODE=A TANGENT MATRIX ... NOT WRITTEN .. . 

C IC0DE=5 MASS MATRIX 

C ■ IC0DE=6 RESIDUALS 

C IC0DE=7 SECOND MEMBER 

C IC0DE=8 EVALUATE AND PRINT STRESSES 

C ELEMENT PROPERTIES 
C VPREE(l) YOUNG’S MODULUS 

C VPREE(2) POISSON’S COEFFICIENT 

C VPREE(3) .EQ.O PLANE STRESS 

C .EQ.1 PLANE STRAIN 

C VPREE(4) SPECIFIC MASS 

IMPLICIT REAL»8(A-H,0-Z) 

COMMON/COOR/NDIM, NNULL(3) , FNULL (3) 

COMMON/ASSE/NSYM, MFILLR (3) 

C0W40N/RGDT/IEL, ITPE, ITPEl, IGRE, IDLE, ICE, IPRNE, IPREE, INEL, IDES, IPG 
1 , ICODE, IDLEO, INELO, IPSO 



COMMON/EB/M, MR, MP, MDUMMY ( 10) 

DIMENSION VCORE (*) , VPRNE (*) , VPREE (*) , VDLE (*) , VKE (*) , VFE (♦) 

C CHARACTERISTIC DIMENSIONS OF THE ELEMENT 

C DIMENSION VCP6( IPG),VKPG(NDIM#IPG),VDEl(IMATD^Hf2) 

DIMENSION VCPGI 9),VKPG( 18),VD£!( 9) 

C DIMENSION VBE (IMATD*IDLE), VDE ( IMATD*#2) , VJ (NDIM,4NDIM), VJl (NDIM* 
DIMENSION VBE ( 48), VDE ( 9),VJ ( 4),VJ1(4) 

C DIMENSION VNIX( INEL*NDIM),VNI ((1+NDIM)#INEL*IPG), IPGKED(NDIM) 



Dli^NSION VNIXI 16),VNI ( 216),IPGKED( 2) 



DATA ZERO/0. DO/, DEUX/2. DO/, X05/0. 5D0/, RADN/. 5729577951 30823D2/ 
DATA EPS/l.D-G/ 

SQRT(X)=DSQRT(X) 

ATAN2(X,Y)=DATAN2(X,Y) 

C DIMENSION OF MATRIX D 

DATA IMATD/3/ 

C 

C+++ THIS IS COMMENTED OUT BECAUSE OF THE MS FORTRAN COMO- 
C+++ ILER BUG WHICH WILL NOT INITIALIZE tLARGE ARRAYS. 

C+++ THIS ARRAY IS NOW INITIALIZED BY A CALL TO A DUMMY 

C+++ SUBROUTINE INITPG WHICH EXISTS SOLELY TO INITIALIZE 

C+++ THE NUMBER OF GAUSS POINTS FOR THE CALLING ROUTINE. 

C 

C DATA IPGKED/3,3/ 

C 

C HERE IS THE CALL TO GET AROUND THE COMPILER BUG 
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CALL :\r?Q ( I^GKZD, ’ C_02’ ) 

c 

Cf-T Cf ’HIS ‘-^AS SOLELY TO BET A.HGUND THE YICRC50?: 

Cr+* COMPILER ESJa 



■: CHOOSE TO 3E EXECUTED 

5Q TO (100, 200, 300, 400, 500, 600, 70C-, 300 ), I CODE 

W 

C— RETURN ELEMENT PARAMETERS IN COMMON ’ SGDT’ 

C 

100 IDLE0=16 
INE.0=8 
!=S0-9 
C RETURN 



C evaluate COORDINATES, WEIbH’S, -UNCTIONS N AND THEIR 

C DERIVATIVES AT S. P. 

C 

2CiO CALL GAUSS ( I PGKED, NDIM, V<PS, VC -6, 1 PS) 

IF(M.LT.2) GO “0 £20 
WRITE (MP, 2000) IPG 

20!jt) FORMAT (/I5,» GAUSS POINTS’ /lOX, ’VCPG’ ,£5X, ’VH?G’ ) 

10=1 

DO 210 13=1, IPS 
I1=I0+NDIM-1 

WRITE(M?,2010) VCPG(IS), (VKPG(I), 1=10, ID 
210 IO=IO+NDIM 

2010 format (1X,F20. 15,5X,3F20. 15) 

220 CALL NI02(VKPG,VND 
IF(M.lT.2) RETUJ<.N 
I1=3»INEl*IDS 

^-^RITE(M?,2020) (VNI(I),I=l,Ii) 

2020 FC'SMAK/’ FUNCT I Of^S N AND DERIVATIVES’ / (1X,SE12.5)) 
RE’^J.RN 
C 

•: EVALUATE ELEMENT STIFFNESS MA’RIX 



C INITIALIZE VKE 

300 DO 310 1=1, 136 
310 VKS(I)=ZERG 

C FORM MATRIX D 

CALL 002(VPRE£,VDE) 

IF(M.GE.2) WRITE (KP, 2030) (VDE(I), 1=1, 9) 

2030 -ORMAT(/’ MATRIX D’ /1X,9E12.5) 

C LOO? OVER the 3. P. 

H=1+IN£L 
DC 330 IG=1, IPG 

C evaluate T-E JACC3IAN, ITS INVERSE AND ITS DETERMINANT 

CALL JACGB(VNKI1),VC0RE,NDIM, INEL,VJ, VJl.DETJ) 
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2040 

2050 



iF(D£"J.L‘.E^Sj IE-, IS,DZ'J 

fzmro ♦** E:.EX%I5,’ G.P. %I3,’ DET(J)=’,£12.5) 
F(y.GE.2; ^.•R:TE('13',2050) VJ,VJ1,DETJ 
■ORMft’tV’ JACGBIh,V=% 4E:2.5 / ’ J INVES5-’ ,4Ei2.5/’ DETJ=> 
C cEvORM o*ccef 

■ C=VC?^3(!G)*DETJ 
DO 320 i=l,9 
320 VD£1(I)=VDE(I)*C 

C 3 

C^IL DNIDX(VNI(H),VJ1,NDI?!, INELA^'IX) 

:-C^.3E.2) WRITE (MP, 2060) (V\IX(I), 1=1. 16) 

2060 FORVfiK/’ VKIX’/(rX,BE12.5)> 

CPlu B02(V\:X,I.'^EL,VB£) 

IF(.’^;.EE.£) WRITE (!»;p, 2070) (VBE(I), 1=1, 48) 

2070 torvhK/’ TaT.^rx B’/aX,10E12.5)) 

CSLL BTD3 (VKE, V3E, VDEl , IDLE, i™. NSY>!) 

330 Il=Il+3HNEL 
RETURN 



EOhLUATE the element tangent matrix 



i;j0 



CONTINUE 

RETURN 



EVALUATE THE MASS MATRIX 



500 DO 510 1=1, 136 
510 VKE(I)=2ER0 

C L003 OVER HE G. P. 

IDIM1=N'DI!*!-1 
IDE:i.= (NDIM+l)*INEL 
Il=l+:NeL 
12=0 



DO 550 IS=1,IPG 

CAuL JACOB (VNI (ID, VCDRE, NDIM, INEL, VJ, VJl, DETJ) 
D=VCPG(IB)*D£TJ*VPREE(4) 



C ACCUMULATE MAS5 TERMS 

IDL=0 

DO 540 J=l, INEL 
JJ=I2+J 

J0=l+IDL*(IDL+l)/2 
DO 530 1=1, J 
i:=!2+I 

C=VNI(II)*VNI(JJ)*D 
VK£(JO)=VKE(JO)+C 
IFlNDIM.ES.l) SO TO 530 
Jl=J0+IDL+2 
DO 520 II=1,IDIM1 
VK£(JD=VKE(Ji)+C 
52'0 J1=J1+J1+1 

530 JO=JO+NDIM 



, 5 ) 
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3^0 :dl=:d.‘vdI'^ 

::=;1+IDECL 
55? :E=:i+:DECL 
iET’Jn'i 

: EVALUATE THE EiE^^ENT RESID'.AL 

: FORM MATRIX D 

£00 CALL D02<VPREE,VD£) 

■: INilTIALIZE THE RESIDUAL VECTCR 

DO 610 ID=1,IDL£ 

610 V^£(ID)=Z£HO 

C LGQ? OVER THE G.?. 

II=1+I'MEL 
DO 640 IG=1,IPG 

C EVALUA'E THE JACOBIAN 

CALL JACOB (VNI (ID, VCORE, NDIM, INEL, VJ, VJi, C'ETJ) 

C ?JALUATE FUNCTIONS D(NI)/D(X) 

CALL DNIDX(VNI(Ii),VJi,NDIM, INEL.VNIX) 

C EVALUATE STRAINS AND STRESSES 

E?SX=Z£RO 

E?SY=ZERQ 

SAMXY=Z£RQ 

ID=1 

DO 6£0 IN=1, 1?>SL 
uN=VD-E(ID) 

VN=VDL£(ID+1) 

Ci=VNIX(IN) 

IN:=IN+INEL 

C2=V?.'IX(!N1) 

E‘3X=>3SX+CHNJN 

e?sy=e?sy-h:e*vn 

GA;MXY=GAMXY-C1 *VM+C2*UN 
£20 ID=!D<-£ 

■:i=VC?G(IG)*D£TJ 
C2=VDE(2)*Ci 
C3=VDE(9)*C1 
C:=VDE(l)Ci 
5:GX<1#£?SX+C2*£?SY 
3IGY=C2*EPSX+Ci*£PSY 
T,Q«jXY=!:3*GAKXY 
C FORM THE RESIDUAL 

:d=i 

DO 630 IN=1, INEL 
C1=VNIX(IN) 

:Ni=IN+INEL 

C2=VNIX(!N1) 

'V^E ( ID) =VFE ( ID) +CHSIGX+C2*TAUXY 
VFE ( ID+1 ) =VFE ( ID+1 ) +C2*SIGY+C1*TAUXY 
530 !D=ID+2 

640 I1=I1+3*INEL 



270 



CT O O 



RETUR:'< 



: EV<^LuQ“ VGL'JMIC FCSCES, FX,FY ?£H wNIT VGLL^E 

C ( PGR bRfiVITY FX=0 FY=-VPREE(4) ) 

C 

700 FX=ZER0 

FY=-VPR££(4) 

DG 710 1=1, 16 
710 VFE{I)=2£R0 

:i=! 

:decl=C'(Di^i)*inel 

DO 730 16=1, IPS 

CfiLL J:PCGB(VNI(il+IN‘EL),VCGRE,;N!DIM,INEL,VJ,VJi,D£TJ) ■ 

DX=VCP5(I5)*DETJ 

DY=DX*FY 

DX=DX*FX 

I'=I1 

13=1 

DO 720 IN=1, INEL 
VFE(I3)=VF£(I3)+DX*VNI(I2) 

£ ( !3+l ) =VFE ( 13+1 ) +DY»VMI ( 12) 

12 = 12+1 
720 12=13+2 

730 I1=I1+ID£CL 
RETURN 

EVALUATE AND PRINT STRESSES AT S.P. 

800 WRITE (i*!P, 2080) lEL 

2080 FORMAT!//’ STRESSES IN ELEMENT ’,15/ 

1 ’ ?. 6. ’ , 7X, ’ X’ , 1 IX, ’ Y’ , 9X, ’ EOSX’ , 8X, ’ EASY’ , 7X, ’ 3AMXY’ , 8X, ’ SISX’ , 

2 8X,’SIGY’,7X,’TAUXY’,8X,’TETA’/ 7iX ,’SIGl’,eX,’SIG2’,7X,’TALiMAX’ 

3 /) 

C FORM THE MATRIX D 

CALL D02(VPREE,VDE) 

C LOO? OVER THE 6. P. 

Ii=l+INEL 

12=0 

DO 820 13=1, IPG 

C EVALUATE THE JACOBIAN 

CALL JAC0B(VNI(I1),VCCF.E,NDIM, INEL,VJ,VJ1,DETJ) 

C EVALUATE FUNCTIONS D(NI)/D(X) 

CALL DX'IDXCVNI (I1),VJ1,ND:M, INEL,VNIX) 

C COMPUTE STRAINS AND COORDINATES AT G.P. 

E?SX=ZERQ 

EPSY=ZERC 

3AMXY=ZER0 

X=ZER0 

Y=ZER0 

ID=I 

DC 310 IN=1,INEl 
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:JN=VDL£(:D) 

A=VDL£(ID+1) 

XN=VC05£(ID) 

•/\=VCQr£nD+l) 

IM=:\+!N£L 

C2=VNIX(IM) 

C3=VNI(IN1) 

£53.y=E0SX+Ci*yN 
I?SY=EPSY+CS*vN 
3P,?<X Y=SSi»!X Y+Cl ♦V’<+C£*'JN 
x=x-h::3*xn 
y=Y<-C3*YN 
?:0 ID=ID+2 

: D2;i?UTE THE STRESSES 

SIGX=VDE ( 1 ) PSX+VDE (2) *£PSY 
SI‘3Y=VDS(2)*EPSX+VCE(1) *EPSY 
TfiUXY=V’DE(9)*GftMXY 

r CCy?;jTE the SRINCIPflL STRESSES 

TE"P=PTfiN2 (D£UX*TfiUXY, SIGX-SIGY) *X05 

C‘=(SIGX+SISY)*X05 
C2={SISX-SISY)*X05 
■pUlrP.X=SQST (C2»C£+TRi:XY*Tf^XY) 

SIG:=:>TAL‘iYftX 

SI52=Ci-TQuf»!fiX 

^RITE(XP, cOSO) IG, X, Y, E?SX, EASY, SAMXY, SIGX, SISV, ’AuXY, 
1 TETft,S!Gl,SIG2,TftU!>«5X 
2050 FORMAT (IX, 15, 8E12. 5, 5X, ?5. 1/66X, SE 12. 5) 

I2=I2+3»ir£L 
320 :i=Il+3*INEL 
RETURN 
E\D 
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1 1 1 i t 



SjB.^GUTINS N'I02(VK?'3, V^'iD 






C TO EVfiLLlflTE THE IN'ERPOLftTIGN FjNnONS N AN-D THEIR DERIVATIVES 
C D(N-)/D(.K3!) A,\’D D(N)/D<ETA) BY GENERAL PN-I.WERSE .'‘'ETHCD 
C INKiT 





VKPS 


COORDINATES AT WHICH N IS TO BE EVALUATED 




IPG 


NUMBER OF POINTS 




u 


INEL 


NUMBER 0= FUnC'IONS N <0R OF NODES) 


INEL.EQ.a 


c 

r 


NDIM 

-OU'SiJ' 


NUMBER -OF DIMENSIONS 


NDIM.EQ.2 


c 


VNI 


-UNCTIONS N AND DERIVATIVES 





I.MPLICr REAL^^8(A-H,G-Z) 

CGi^.yO\/CDGR/\DIM, NNULL (3) , FN’JLL (3) 

•::D;r’»GN/R6DT/IEL, ITPE, ITPEI, ISRE, IDLE, ICE, IP.RNE, lAREE, I\EL, IDEC-, IPG 
1 , NULL (A) 

C:M;>!GN'/TRVL/VKSI , VPN, VP, KEXS, HDER, Kl, R\U'_L (4EO) , INLLL 
DiMBvSIGN VK?G(*),VNI(*) 



: IMFORXATIONS RELATED TG THE a NGDE5 REFERENCE SCL’ASE E^IYENT 

C (INEL.EQ.8 NDIi«.E5.2) 

C DIMENSION VK3I<^QIN♦INEL),KtX?(:NDL>!*IN£■:.>,:•<DEP.(NDI^!) 

DI!^.ENSIGN VKSI ( 16),KEXP( ■6),:‘<DER( E) 

C ■ BI-€N3I0N ’ m (INEL!HNEL),V?(INEL),K1(INEL} 

DIMENSION VON < fa4),VP( 8),K1( 8) 

C 

C NODAL COORDINATES OF Th£ :;£;Ef?£N’C£ E_B<!E.NT 

C 

DATA IDE5R/2/ 

THIS IS CC:^MENTED GUT BECAUSE OF 'HE MS FORTRAN COMP- 
ILER 31S WHICH WILL NOT INITIALIZE $LAR5E ARRAYS. 

'-ESE ARRAYS ARE NOW INITIALIZED BY A CALL TO A DiJMNY 
SUBROUTINE INITM WHICH EXISTS SOLELY TO INITIALIZE 
THS5-E TWO ARRAYS. 

C DATA VK3I/-1.D0,-1.D0, ^’.DO,-l.DO, +l.DO,-l.DO, +l.ZK;i,H!.DO, 

C • +1.DO,t 1.DO, +O.DO,+1.DO, -l.DO.ri.DO, -1. BO, ^0.00/ 

•: MONOMIAL EXPONENTS OF THE POLYNOMIAL BASIS, MAX-DEGREE 

C BATA HEXD/0,0, 1,0, 0,i, 2,0, 1, i, 0,2, 2, i, 1,2/ 

C 

C HERE IS T^E CALL TO GET AROUND "HE MICROSOFT 

C COMPILER 0JG 

r 

CALL INITN2(VKSI,KEX3) 

C 

C+++ PLL OF THIS HAS BEEN TO GET AROUND ?HE 

C+++ CQMOILER BUS. 



IDEB=IDE3R 
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ZVQLjfl” T-= jN- INVERSE 



CP..L 3NINV (VXS:, VP. KI , VC^J) 

— EVPl'-S’E N,C{N)/D(K5I),D(N)/D(ETP) AT 
11=1 
12=1 

DO 10 15=1, IPS 

KD£H(i)=0 

KDER(2)=0 

N: (VKPG (ID, i<EX3, KDER, V?, 'v^N, VNI 112)) 
I£=I2+INEL 
K3E^(1)=1 

CALL NI (VKPG (ID, KEXP, KDER, VP, VPN, VNI ( 12) ) 

I2=I2+INEL 

KDER(1)=0 

KDER(2)=1 

CA-L \'I m?o ( 1 1 ) , KEXP, KDER, VP, VPN, VNI ( 12) ) 

I2=I2+;NEL 

Il=Ii+NDIi»' 

RETURN- 

END 
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Cil 



i'jBl^OUTIXE DOStyp^SE, vDE) 



To FOx*^ MfiTRIX D (2 DIl^EI-valONPL ELfiSTICI?/) 

INSoT 

VPREE ELEM9«.T PROPERTIES 

VPREEd) YOUNS’S l^ODuLUS 
yPREE(2) PGISSO'i’S coe--icie:\ 
V?R££(3) .ES.O PLANE STRESSES 
.EQ.1 ?LA.\E STRAINS 

r\\ rrri^'T 
•Ju i r'u \ 

VDE MATRIX 0 (FULL) 



lY^PLICIT REAL»3(A-H,G-Z) 

DIMENSION VPREE(*),VDE'S) 

DATA ZERO/0. DO/, UN/ 1 . DO/, DEoX/2. SO/ 
E=VPR£E!:) 

X^y?<E£(£) 

A=V?REE(3) 

(’JN-q*X ) / ( (UN+X) ♦ (UN’-X-A*X) ) 
C2=Cl»X/(l'N-Ai^X) 

C3=E/(DEUX«(IJN+X)) 

VDE(1)=C1 

VSE(2)=C2 

vSE(3)=ZEnt) 

•/D£(4)=C2 

VSE(5)=C1 

VDE(6)=--ZERG 

VDE(7)=ZES0 

y'0E(3)=ZER0 

VLE (9) =C3 

REI’RN 

END 
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3l:-.routiN' bo2(vn:x, :\3l, vh) 



u 








TO rOR>; MfiTR 


IX B (2 DIJlENSIGN’fiL ZwASTICITY) 




INPUT 




2 


VNIX 


DEnIVPTIVES GF INTER^GLATIGN FUNCTIONS W.2.~. X,Y,2 


n 

w 


IN'EL 


NUMBER OF INTERPQLflTICN FUNCTiO?'iE 


C 


G'rP’JT 




r 

r=— = 


VBE 


MfiTRIX 3 



IMPLICIT SEAL*3<P.-H,0-2> 

Birai j\ VN:X ! INHL, *) , VBE i3, ♦) 

dhTS zerd/0. do/ 



DO 10 1=1, IN'EL 

C1=VMX(I,1) 

C2=/\':X(I,£) 

VB£(1,J)=C1 

•v'3z:i,j+:)=ZERC 

vE£(2,J)=ZERQ 

V'2Z!2,J+I>=C2 

VBSi3,:)=C2 

/BZ?3,J+1)=C1 

j=:+2 

'ZTJR^ 

E:\D 
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i.ESD'u'TIME PTD5{v<H, VP£, VD£, IS_£, I'*?iTP, 'vSY^;) 



t=== 






c 


TG ADD THE 


PRODUCT B(T).D.3 70 VKE 


c 


INPL’T 




p 


vHE 


ELEMENT MATRIX NON SYMMETRICAL (NSYM.EO.l) 






SYlMMETRICAu (NSYX.EQ.O) 




VcE 


MATRIX B 




VDE 


MATRIX D (FULL) 


u 


IDLE 


TOTAL NUMBER OF O.O.”. ^ER E^EMEN^ 


L 


I.^ATD 


DIMBvSIGN OF MATRIX D (MAX. 6) 


r 


CUTPIJT 




c 


VKc 





:>5PLIC:T £EftL»B(fi-H,C-Z) 

DIY^r^IQN V?;E<*) ^’BE(IXO,#) ,yDE(I>ifiTD, *) ,7(6) 
DP'R ZERG/O.DO/ 



T *»«♦ 

A ^-1 

I>1PX=IDLE 
DO AO J=i,IDLE 
OG 20 Il=l,IMaTD 
C=ZERO 

DO 10 ji=i,i;yatd 

10 C=C+VDE(Il,Ji)»’y3E(Jl,J) 
20 TC1)=C 

:f(xsy:'!.eq.o) iMax=j 

DQ 40 1=1, IXflX 
C=ZE.RO 

DO 30 Jl=l, IMfiTD 
HO ::=C+VBE(J1,I)*T(J1) 

vKE(IJ)=VK£(IJ)+C 
¥j IJ=IJ+1 

RErjRN 
EMB 
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